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Einleitung 


Beeindruckende Grafik 




Zwei Themen interessieren den Anwender eines C 64 
besonders: Grafik und Drucker. Die Grafik zum einen, weil der 
C 64 dafür die besten Voraussetzungen bietet, der Drucker 
zum anderen, da man seine Kunstwerke nicht nur auf dem 
vergänglichen Bildschirm betrachten möchte, sondern auch 
etwas »in Händen« halten will. 

Deshalb wurden beide Themen in diesem vierten Sonder¬ 
heft der 64'er zusammengefaßt. Drucker und Grafik haben 
auch für sich alleine betrachtet ihre Existenzberechtigung, 
gemeinsam sind sie jedoch unschlagbar. 

Was die Grafik anbelangt, finden Sie hier einige Programme, 
die das Herz höher schlagen lassen. Ein Schwerpunkt liegt in 
der dreidimensionalen Darstellung von Körpern auch auf 
einem Heimcomputer. Zwei Programme verdienen dabei Ihr 
besonderes Augenmerk: »3D-Supergrafik« und »Räumliche 
Grafik auf dem C 64«. 



Sie räumliche Körper, betrachten sie von allen 
Seiten, lassen das Licht von verschiedenen Richtungen ein¬ 
fallen und geben das Ganze auf einem Drucker aus. 

Um »normale« Grafik auf dem C 64 betreiben zu können, 
bieten wir Ihnen eine Reihe von Basic- und Grafikerweiterun¬ 
gen. Eine mit reiner Software erzeugte 80-Zeichen-Dar- 
stellung ist ebenso Bestandteil wie komfortable Befehls¬ 
erweiterungen für Drucker. 

Hardcopy-Routinen für die verschiedensten Drucker mit 
Leistungsmerkmalen wie vierfache Größe oder Umsetzung 
der Farben in Graustufen sind in einer eigenen Rubrik zu¬ 
sammengefaßt. 

Wer sich seine eigene Hardcopy-Routine basteln will, aber 
noch keine Ahnung hat wie das geht, erfährt im Abschnitt 
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Grundlagen, wie man das macht. Außerdem werden die 
Grundzu^e der Spriteprogrammierung und des Fein-Scrolling 
behandelt. 

Alles in allem erhalten Sie wieder rund 28 Listings der 
Spitzenklasse. Alle Programme wurden mit Prüfsummen 
versehen, um Ihnen das Abtippen zu erleichtern. Geben Sie 
daher bitte vorher die beiden Listings »Checksummer 64 V3« 
und »MSE« in Ihren C 64 ein. Damit können Sie dann alle 
anderen Listings sicher und bequem abtippen. 

(Albert Absmeier) 


Listing-Service 

Wer keine Zeit oder keine Lust hat, alle Programme 
selbst in mühevoller Kleinarbeit abzuschreiben, kann 
wiederauf den bewährten Leserservice zurückgreifen. 
Alle Listings befinden sich auf einer Diskette mit der 
Bestellnummer L6 85S4A. Die Diskette kostet 29,90 
Mark. 

Bitte verwenden Sie für Ihre Bestellung die beigefügte 
Postscheck-Zahlkarte zur Überweisung des Rech¬ 
nungsbetrags. Sie erleichtern uns die Auftragsabwick¬ 
lung und Sie sparen sich die 3,— DWI Versandkosten! 

Bestell-Nr.: L6 85 S4A / DM 29,90 
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C 64/VC 20 


Eintipphilfe 


Checksummer 
64 — Neu 

Der Checksummer 64 V3 überprüft 
jede Basic-Zeile direkt nach der Ein¬ 
gabe, erkennt Fehleingaben und auch 
Vertauschungen von Zahlen und Zif¬ 
fern, und erspart deshalb eine auf¬ 
wendige Fehlersuche 

Der Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm, das Sie sofort unterrichtet, ob Sie die jeweilige Pro¬ 
grammzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 

CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, 

AUSSCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 
1,53, READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern, und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

7. Dieser neue Checksummer 64 V3 bemerkt, im Gegen¬ 
satz zu den bisherigen, auch Vertauschungen von Zahlen und 
Buchstaben. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen (siehe Bild 1 und 2). 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. Unterstri¬ 
chene Buchstaben bedeuten, daß Sie die SHIFTTaste und 
den angegebenen Buchstaben drücken müssen, überstri¬ 
chene jedoch die Commodore-Taste mit dem Buchstaben. 
Auch hier erhalten Sie am Bildschirm das entsprechende Gra¬ 
fikzeichen und nicht etwa das im Listing erkennbare Zeichen 
(siehe Bild 1 und 2). 

Checksummer VC 20 V3 

Der Checksummer VC 20 V3 ist im Prinzip genauso auf¬ 
gebaut wie der Checksummer 64. Da beim VC 20 jedoch 
nicht die Möglichkeit besteht, das ROM softwaremäßig zu mo¬ 
difizieren, mußte ein anderer Weg als beim Commodore 64 
gewählt werden, um die Checksumme zu generieren. 

In ihrer Funktionsweise unterscheiden sich der Checksum¬ 
mer VC 20 und der Checksummer 64 nicht. Es gelten fol¬ 
gende Sonderregelungen bei der Benutzung des Checksum¬ 
mer VC 20: 

— Da der Basic-Bereich nicht belegt werden soll, ist das Pro¬ 
gramm im Kassettenpuffer abgelegt. 

— Angeschaltet wird der Checksummer VC 20 mit »SYS 
955«. 


CTRL steht für Control-Taste, so bedeutet [CTRL-A), daß Sie die 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

(DOWN) 

Taste neben rechtem Shift, Cursor unten 

[UPJ 

Shlft-Taste 8 Taste neben rechtem Shift; Cursor hoch 

iCLR| 

Shift-Taste 8 2. Taste ganz rechts oben 

(INST} 

Shift-Taste 8 Taste ganz rechts oben 

(HOME) 

2. Taste von ganz rechts oben 

(DEL) 

Taste ganz rechts oben 

(RIGHT} 

Taste ganz rechts unten 

[LEFT] 

Shift-Taste & Taste unten rechts 

(SPACE] 

Leertaste 

[Fl] 

grauer Tastenblock rechts 

(F3) 

grauer Tastenblock rechts 

(F6J 

grauer Tastenblock rechts 

[F7] 

grauer Tastenblock rechts 

[F2| 

grauer Tastenblock rechts 8 Shift 

[F4] 

grauer Tastenblock rechts 8 Shift 

(F6J 

grauer Tastenblock rechts 8 Shift 

(F8) 

grauer Tastenblock rechts 8 Shift 

(RETURN} 

Shift-Taste 8 Return 

(BLACK] 

Control-Taste 8 1 

IWHITE} 

Control-Taste 8 2 

(RED] 

Control-Taste 8 3 

(CYAN) 

Control-Taste 8 4 

(PURPLE] 

Control-Taste 8 5 

(GREEN] 

Control-Taste 8 6 

(BLUE] 

Control-Taste 8 7 

(YELLOW] 

Control-Taste 8 8 

(RVSONi 

Control-Taste 8 9 

(RVOFFJ 

Control-Taste 8 O 

(ORANGE] 

Commodore-Taste 8 1 

(BROWN] 

Commodore-Taste 8 2 

(LIG.REDI 

Commodore-Taste 8 3 

(GREY 1 j 

Commodore-Taste 8 4 

(GREY 2] 

Commodore-Taste 8 5 

(UG.GREEN) 

Commodore-Taste 8 6 

ILIC.SLUE] 

Commodore-Taste 8 7 

[GREY 3] 

Commodore-Taste 8 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei- 

chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise 

erkennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext 

ist so verfaßt, daß Sie leicht die Taste beziehungsweise die Tasten- 

kombination finden, die Sie drücken müssen. 

Die Steuerbefehle im Klartext 


— Abschaltung des Checksummer VC 20 wird mit »SYS 
58459« vollzogen. 

Achtung: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 überschrieben werden, was zur 
Folge hat, daß sich der Computer bei aktiviertem Checksum¬ 
mer VC 20 »aufhängt«. Wollen Sie deshalb ein Programm auf 
(von) Kassette abspeichern (laden), so müssen Sie erst den 
Checksummer VC 20 abschalten (SYS 58459). 

Daraufhin kann der Kassettenpuffer mit Daten überschrie¬ 
ben werden, ohne daß der Computer »aussteigt«. 

Als Sicherung wird bei der Initialisierung geprüft, ob das 
zuletzt angesprochene Peripherie-Gerät der Kassettenrecor¬ 
der war. Ist das der Fall, so werden die Betriebssystemroutinen 
LOAD und SAVE für die Benutzung gesperrt. Der Rechner mel¬ 
det bei Aufruf einer dieser beiden Routinen READY, ohne wei¬ 
tere Aktionen durchzuführen. Diese Sicherung kann man nach 
der Tipparbeit aufheben, wenn man den Checksummer VC 20 
mit SYS 58459 abschaltet. Dadurch wird der Kassettenpuffer 
für andere Daten freigemacht. Weiterhin wird dann durch 
gleichzeitiges Drücken der Tasten »Run-Stop & Restore« 
erreicht, daß die Betriebssystemroutinen LOAD und SAVE wie¬ 
der eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
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Checksummer VC 20 überschrieben wird, da der Kassetten¬ 
puffer für die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor¬ 
mal nutzen, sofern der Rechner bei der Initialisierung des 
Checksummer VC 20 feststellt, daß das zuletzt angespro¬ 
chene Peripherie-Gerät nicht der Kassettenrecorder war. 

— Bedingt durch den anderen Aufbau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 
Routine keine Checksumme ausgegeben. 

— Wird eine Zeile gelöscht, also eine Zahl zwischen 0 und 
65999 eingegeben, und danach Return gedrückt, so wird 
eine Checksumme ausgegeBen, die aber keine Bedeutung 
hat. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (R Lonczewski/gk) 

Hinweis: (13 SPACEj bedeutet 13mal die Leertaste drücken 


1 REM ******************************* 

<139> 

2 REM * 


* 

<051 > 

3 REM * 

CHECKSUMMER 64 V3 

* 

< 153> 

4 REM * 


* 

<053> 

5 REM * 

WRITTEN MAERZ 1985 BY 

* 

<210> 

6 REM * 


# 

<055> 

7 REM * 

FRANK LONCZEWSKI 

* 

<039> 

8 REM * 


* 

<057> 


9 REM ******************************* <147> 

10 PRINT" <CLR,11SPACE,RVSQNJCHECKSUMMER 64 

V3{RV0FFJ" <194> 

11 PRINT"<2D0WN,9SPACEJEINEN MOMENT, BITTE 

<130> 

12 FOR I=B2B TO 864:READ ArPOKE I,A:PS=PS+ 

A+l:NEXT I <018> 

13 IF PSO5802 THEN PRINT"PRUEFSUMMENFEHLE 

R IN ZEILEN 20-22" :Et$) <100> 

14 SYS 82B:PS=0:FOR 1=58464 TO 58583:READ 

A:POKE I,A:PS=PS+A+1:NEXT I <0B4> 

15 IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 

ER IN ZEILEN 22-30":END <193> 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 €-130 > 

17 PRINT"{4D0WN,9SPACEJCHECKSUMMER AKTIVIE 

RT." <107> 

18 PRINT”{2D0WNJAUSSCHALTEN : P0KE1.55" <180> 

19 PRINT"{DOWN3ANSCHALTENI2SPACEJ: P0KE1.5 

3":NEW 5 <185> 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 

55,160,0,177,254 <089> 

21 DATA 145,254,136,20B,249,230,255,165,25 

5,221,95,3,208,238,202 <042> 

22 DATA 16,230,96,160,224,192,0,160,2,169, 

0,170,133,254,177 <084> 

23 DATA 95,240,40,201,32,208,3,200,208,245 

,133,255,138,41,7 <249> 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 <078> 

25 DATA 104,170,232,165,255,24,101,254,133 

,254,76,111,228,192,4 <005> 

26 DATA 48,219,198,214,165,214,72,162,3,16 

9*32,157,1,4,189 <177> 

27 DATA 212,228,32,210,255,208,12,0,92,72, 

32,201,255,170,104 <065> 

28 DATA 144,1,138,96,202,16,228,166,254,16 

9,0,32,205,189,169 <125> 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 <088> 

30 DATA 76,128,164,9,60,18,19 <034> 

© G4'er 

Dieser neue Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen. 


10 REM*****«#******»* <154> 

11 REM* * <060> 

12 REM* CHECKSUMMER * <159> 

13 REM* * <062> 

14 REM* V3 VC20 * <216> 

15 REM* * <064> 

16 REM* WRITTEN * <066> 

17 REM* MAERZ 1985 * <015> 

18 REM* BY * <122> 

19 REM*F. LONCZEWSKI* <107> 

20 REM*************** <164> 


21 PRINT"tCLR,SPACE,RVSONJCHECKSUMMER V3 V 

C—20 <RVDFF J" <079 > 

22 PRINT"<2D0WNJEINEN MOMENT, BITTE..." <141> 

23 FOR 1=827 TO 1019:READ A'.POKE I,A <109> 

24 PS=PS+A+1:NEXT I <205> 

25 IF PS<>24464 THEN PRINT"IDOWNJPRUEFSUMM 

ENFEHLER !":END <080> 

26 SYS 981:PRINT“CHECKSUMMER AKTIVIERT." <083> 

27 PRINT"AN :SYS9B1" <161> 

28 PRINT"IDOWNJAUS:SYS58459, BEI CAS-I4SPA 

CEJSETTE ZUSAETZLICHI5SPACEJRUN/STOP & 
RESTORE" <229 > 

29 PRINT"{DOWNJBEI AKTIVIERTEM CHECK-SUMME 

R KEIN"} <069> 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)<2 

SPACE JERLAUBT!":NEW <023> 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 

70,240,243,162,255 <192> 

32 DATA 134,58,144,10,162,0,134,255,32,121 

,197,76,225,199,162 <039> 

33 DATA 1,134,255,76,156,196,166,255,224,1 

,240,3,76,96,197 <185> 

34 DATA 160,2,169,0,170,133,254,177,95,240 

,40,201,32,208,3 <143> 

35 DATA 200,208,245,133,253,138,41,7,170,2 

40,1-4,72,165,253,24 <249> 

36 DATA 42,105,0,202,208,249,133,253,104,1 

70,232,165,253,24,101 <040> 

37 DATA 254,133,254,76,119,3,192,4,48,219, 

198,214,165,214,72 <199> 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 

210,255,202,16 <253> 

39 DATA 242,166,254,169,0,32,205,221,169,6 

2,32,210,255,104,133 <240> 

40 DATA 214,32,135,229,169,141,32,210,255, 

162,0,134,255,240,148 <235> 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 

1,3,3,165 <0B4> 

42 DATA 186,201,1,208,16,169,116,141,48,3, 

141,50,3,169,196 <197> 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 

0,3,96 <079 > 


B G4 5 

Der neue Checksummer VC 20 V3 erkennt auch 
Vertauschungen von Zahlen. 


5 PRINT CHR*(14> <242> 
10 PRINT"<CLR>" <254> 
20 PR I NT " < 130> 
30 PRINT"{4D0WN,2SPACEJJEST{SPACE,BLUE,6SP 

ACEJ" <022> 
40 PRINT“SSSSB5SSBSS5S¥SWaSSW5^SWB" <108> 


© G4'er 


Bild 1. So könnte ein Teil eines Listings abgedruckt sein. In 
Zeile 10 müssen Sie nach den Anführungsstrichen die 
CLEAR/HOME-Taste drücken und nicht die Klammern mit 
dem Wort CLR. In Zeile 20 drücken Sie nach den Anführungs¬ 
strichen die Commodore-Taste und den Buchstaben Q. 
gefolgt von mehreren SHIFT und Stern-Taste, und zum Schluß 
die Commodore-Taste und den Buchstaben W. In Zeile 30 ist 
es viermal die Cursor-nach-unten-Taste, gefolgt von zweimal 
die Leertaste, dann SHIFT und T und normal EST, zum Schluß 
noch einmal die Leertaste, die Farbtaste Blau (Control und 7) 
und sechsmal die Leertaste. Zeile 40 besteht lediglich aus 
mehreren Grafikzeichen, die mit der Commodore-Taste und B 
erzeugt werden. 


5 PRINTCHR*<14) 

10 PR INT "73" 

20 PRINT"!-1" 

30 PR INT" WÖS« I EST 3 

40 PR I NT " V.V.V.VAV.VVAV.V.VY.V.V.Y." 


Bild 2. Auf dem Bildschirm oder Ihrem Drucker sieht das 
Listing (Bild 1) so aus. 
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MSE- Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro¬ 
grammen. 

Im Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die Tipp¬ 
arbeit um ein Drittel und schließt Fehleingaben vollkommen 
aus. Außerdem können Sie die Werte blind eingeben, ohne 
andauernd auf den Bildschirm schauen zu müssen. Dies wird 
durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler, 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. S46H or 


weiteren Angaben mehr erforderlich. Das Programm kann 
dann ganz normal wieder geladen und gestartet werden. 
Wenn Sie nicht alles auf einmal tippen wollen, können Sie 
jederzeit unterbrechen und den eingetippten Teil mit »CTRL- 
S« abspeichern. Wollen Sie Weiterarbeiten, laden und starten 
Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
»CTRL-L« ein, um Ihr Teilprogramm zu laden. Jetzt können Sie 
mit »CTRL-N« die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser 
Zeile müssen Sie anschließend mit »CTRL-N« eingeben. Das 
Programm ist nur mit »STOP/RESTORE« zu verlassen. Spei¬ 
chern Sie aber vorher unbedingt immer Ihren Text ab. 
Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm abspeichern. Dazu brauchen Sie nur »RETURN« 
zu drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.0« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann / D. Weineck / gk) 


So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. Wenn Sie die Zeile richtig eingegeben haben, 
erscheint die nächste Zeilennummer und so weiter bis zum 
Ende. Zum Schluß wird das fertige Programm mit »CTRL-S« 
auf Diskette oder Kassette abgespeichert. Dazu sind keine 


MSE-Befehie: 

DEL löscht die letzte Eingabe. 

CTRL-S speichert das eingetippte Programm ab. 

CTRL-L lädt ein Programm. Start- und Endadresse werden automa¬ 
tisch ermittelt. 

CTRL-M listet den Speicherinhalt. Abbruch mit STOP-Taste. weiter mit 
Leertaste. 

CTRL-N erlaubt die Eingabe einer neuen Adresse zum Weitertippen. 
CTRL-P gibt ein MSE-Listing auf dem Drucker aus. 


100 REM **************************** <091> 

110 REM * * <159> 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <036> 

240 DXM H(75): FOR 1=0 TO 9 <113> 

250 HC4B+I)=I: H(65+1>=I+10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ AS <198> 

270 H=ASC(LEFTS(AS,1)):L=ASC(RIGHTS(AS,1)) <199> 
280 D=HCH)*16+H(L>:S=S+D:POKE 1,D <219> 

290 A=A+1:IF A<20 THEN NEXT:A=-1 <141> 

300 PRINT " ZEILE:1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <218> 

320 PRINT-PRUEFSUMMENFEHLER '“:STOP <13B> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0: PRINT: NEXT _ <046 > 

341 PRINT“<CLR>PQ43,1:P£4 4,8:Pfl45,172: Pfl46 

,14 <010> 

342 POKE 631,19:POKE 632,13:P0KE 633,13:P0 

KE 198,3 <249> 

343 PRINT"<3D0WN>SAVE"CHRS(34)"MSE V1.0"CH 

RS (34)",8 <171> 

344 END <092> 


350 REM : 

360 REM ****************** 

370 REM * DATA * 

380 REM ****************** 

390 REM : 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 
,00,00,A2,08,A9,36,85,A4,A9, 1247 

1001 DATA 08,85 , A5 , A9,00,85, A6, A9, B0,85 , A7 
,A0,00,Bl,A4,91,A6,C8,D0,F9, 2888 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 
,4C,00,B0,20,D1,Bl,A9,06,8D, 2787 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 
,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 
,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 

1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 
,Bl,A0,B3,A9,CF,20,FF,B1,20, 2323 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 
,85,61,20,A7,B4,D0,20,A0,B3, 2864 

1007 DATA A9,E5,20,FF,B1,20,BE,B4,85,60,20 
,8E,84,85,5F,20,A7,B4,D0,0A, 2624 

1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20 
,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 


< 111 > 

< 149> 
<078> 

< 169> 

< 151 > 

<119> 
<054> 
<144> 
<237 > 
<217> 
<013> 

< 199> 
<091 > 
<167> 
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Der MSE zum bequemen Abtippen von Assemblerprogrammen. Beachten Sie 
den Checksummer auf Seite 6. 





C 64 


Eintipphilfe 


1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 


,90,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

DATA 13,D0,03, 4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,6B,B5, 2282 <225> 

DATA C9,0E,D0,06,20,5F,B4,4C,64,Bl,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9 

,60, C9 ,3A,90,02,69,08,29,0F, 1950 <092> 

DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,BE,B0,C6, 2509 <1B8> 

DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

, 4A,4A,20,59,Bl,68,29,0F, C9, 2419 <035> 

DATA 0A,90,02,69,06,69, 30,4C,D2, FF ,A2 

,FC,9A,20,Dl,B1,20,48,B2,20, 2261 <073> 

DATA EA,B1,20,9F,B2,A5,FC,20,4E,Bl,A5 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 <148> 

DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED, B1,A4,59,20,EF,B0, 2530 <233> 

DATA 91,FB,C8,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

DATA 20 , EF, B0, C5, FF, F0,0D, 20,43, B3, A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,CB,D0, 3100 <077> 

DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,58,85,FF,60,18,A5,FB, 2467 <219> 

DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <1S3> 

DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <09B> 

DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,Bl,A5,61,20,4E, 2453 <236> 

DATA Bl,20,ED,Bl,A5,60,20,4E,Bl,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,2B,20,ED,B1,CA,D0,FA, 2646 <161> 

DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <20B> 

DATA 18, A5 , A4,69,28,85, A4,90,02 , E6, A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

DATA A0,80,20,09, B3, A9,10,8D, 04 , D4,60 

,A2,FF,CA,D0,FD,88,D0,FB,60, 2914 <240> 

DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,80,04,D4, 2250 <078> 

DATA A9,00,8D,01,D4,BD,00,D4,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,B1,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <088> 

DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <03B> 

DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 


1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A, 2A, 2A, 20,45,4E , 44,45,20,2A, 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,Dl,Bl,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,B5,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,FB,4C,EF,B0,68,68,20, 2749 <0BB> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,Dl,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <19B> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF ,B1,20 ,E4 ,FF ,C9,0D ,D0 ,F9, A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,Bl,A0,00,20,ED,Bl 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20, ED, B1,24,5E, 30,03 , A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,B1,A9,92,20,D2,FF,4C,EA 

, A9,FF ,85,B8,85,B9, A9,04, 3073 <029> 

1071 DATA 85, BA, 20, C0 , FF, A2, FF , 4C, C9 , FF , 20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D8, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,B1,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,Bl,20,F9,Bl 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54, D0, F1, A9,01, A8,20, BA , FF , A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

107B DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02 

,D0,F4,9B,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

10B3 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,8A,C9,01,D0, 2639 <131> 

1084 DATA 0A , AD , 3D , 03,85,61, AD , 3E , 03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

© 64'er 


MSE (Schluß). Dieses Listing können Sie (müssen aber 
nicht) mit dem neuen Checksummer 64 V3 in diesem Heft 
eingeben. 
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Drucker-Anwendung 


Centronics- 
Schnittstelle 
für Seikosha 
GP-550A 

Mit diesem Software-Interface können 
Sie auf einem Seikosha GP-550A die 
Steuer- und Grafikzeichen des C 64 
listen und drucken. Der Wert der 
Schnittstelle wird dabei durch eine 
Hardcopy-Funktion noch um ein Viel¬ 
faches erhöht. 

Der Seikosha-Drucker GP-550A besitzt in der Grund¬ 
version eine Centronics-Schnittstelle. Zum Anschluß an den 
C 64 ist deshalb ein Interface notwendig. Unser Leser Pius 
Nippgen wollte sich aber die hohen Kosten für ein Hardware- 
Interface sparen. Er dachte sich, was mit einem Epson funk¬ 
tioniert, muß auch mit dem GP-550A gehen. Er nahm sich 
dazu kurzerhand die Eyssele-Schnittstelle aus Ausgabe 7/84 
(auch in diesem Sonderheft) vor und schrieb sie auf den 
GP-550A um. Diese Schnittstelle besteht aus einem Pro¬ 
grammteil und einem Kabel vom User-Port des C 64 an den 
Centronics-Eingang des Druckers. 

Die gesamte Ansteuerung (Sekundär- und Geräteadres¬ 
sen) wurde beibehalten. Die Adressen und die Verbindungs¬ 
vorschrift des Kabels können Sie bei der Eyssele-Schnitt¬ 
stelle nachschlagen. 

Der GP-550A wird mit anderen Befehlssequenzen ange¬ 
steuert als ein Epson-Drucker. Diese Sequenzen sind nötig, 
um beispielsweise den Grafikmodus des Druckers einzu¬ 
schalten. Deshalb war die erste Aufgabe, alle Steuer-Codes 


der Eyssele-Schnittstelle dem GP-550A entsprechend zu 
ändern. Aber nicht nur das. Ein Epson-Drucker ordnet, begin¬ 
nend mit der untersten der acht Nadeln, steigende binäre 
Wertigkeiten zu, der GP-550A aber fallende: 

Epson 

Nadel 

Gp-550A 

128 

8 

1 

64 

7 

2 

32 

6 

4 

16 

5 

8 

8 

4 

16 

4 

3 

32 

2 

2 

64 

1 

1 

128 


Zusätzlich zu diesen Änderungen wurde eine Hardcopy- 
Funktion (Ausdruck des Grafikspeichers) in die Eyssele- 
Schnittstelle aufgenommen. Die Hardcopy-Routine wird nach 
dem Öffnen des Druckerkanals, beispielsweise mit OPEN 
19,19 mit SYS 52223 aufgerufen. Der Aufruf kann sowohl 
innerhalb eines Programms, als auch im Direktmodus er¬ 
folgen. Es können alle Grafikseiten gedruckt werden, auch 
solche im RAM unterhalb des ROMs. 

Mit ein paar POKE-Befehlen läßt sich die Hardcopy variie¬ 
ren. Durch POKE 52236,224 wird der Speicherbereich von 
$E000 bis SFFFF selektiert. 224 ist das Highbyte von 
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$E000 (57344). Erfolgt kein POKE-Befehl, wird vom Pro¬ 
gramm der normale Grafikbereich von $2000 (8192) bis 
$3FFF (16383) angenommen. Verschiedene Hardcopies 
können stufenlos aneinander gedruckt werden, indem man 
einfach mehrmals nacheinander mit SYS 52223 die Routine 
aufruft. Vorher muß man nur mit POKE 52236,X den ge¬ 
wünschten Grafikbereich einstellen. 


Flexible Hardcopy 


Über die Speicherzelle 52242 läßt sich die Zeilenzahl der 
Hardcopy einstellen. POKE 52242,25 bedeutet, daß die 
gesamte Grafikseite (25 Zeilen) ausgedruckt wird. 

Einen invertierten Ausdruck erreichen Sie durch POKE 
52296,165. Durch POKE52310,0:POKE52239,50:POKE 
52340,51 wird die Hardcopy-Breite auf die Hälfte reduziert, 
das Bild also gestaucht. 

Initialisiert wird die Schnittstelle mit SYS 51456. Sowohl 
nach dem Laden als auch nach RUN/STOP-RESTORE. 

Geben Sie das Listing mit dem MSE ein. Danach können Sie 
mit LOAD "name",8,1 oder 1,1 laden. Nach dem Laden sollten 
Sie noch NEW eingeben, damit die Basic-Vektoren wieder 
vernünftig gesetzt werden. Ohne NEW erhalten Sie bei der 
nächsten Anweisung einen »Out of Memory Error«. Wie Sie 
das Druckerkabei bauen müssen, entnehmen Sie bitte dem 
Artikel über die Eyssele-Schnittstelle. (Pius Nippgen/hm) 
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Listing 1 

Das Centronics-Interface für den 




Bild 1. Die wichtigsten Telle des Centronics-Interface als 
Source-Code 


Seikosha GP-550A. Beachten Sie die Hinweise zum 
Abtippen auf Seite 8. 
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Centronics-Schnittstelie für GP-550A (Schluß) 


160 Spalten 
mit dem 1526 
oder MPS 802 

Dieses Unterprogramm läßt den Com- 
modore 1526-Drucker 128 oder sogar 
160 Zeichen pro Zeile drucken. Der 
Druck von breiten Tabellen wird zum 
Vergnügen! 

Der 1526 kommt durch dieses Programm an die Leistungen 
von teuren Druckern mit Kleinschriftmodus nahe heran. Mit 
160 Zeichen pro Zeile übertrifft er diese Drucker sogar. 

Wie Sie wissen ist der 1526 (MPS 802) nur bedingt grafik¬ 
fähig. Es lassen sich selbstdefinierte Zeichen ausdrucken. 
Das macht auch dieses Programm. Es setzt zwei zu 
druckende Buchstaben in ein selbstdefiniertes Zeichen um, 
das der Drucker zu Papier bringt. Der 1526 druckt also immer 
zwei Buchstaben gleichzeitig (160 Zeichen pro Zeile). Im 
128-Zeichenmodus ist es etwas komplizierter. Hier werden 
aus acht Buchstaben fünf Druckerzeichen zusammenge- 
setzt(Bild 1). Das Aussehen der Zeichen wird über die DATA- 
Werte im Programm bestimmt. Acht DATAs für ein Zeichen. 
Ein DATA-Wert bestimmt, welche Nadeln einer vertikalen 
Punktreihe angeschlagen werden. 

Die einzelnen Nadeln haben die folgenden Wertigkeiten: 
obc - 2 . 128 
. 64 
. 32 
. 16 
. 8 
. 4 
. 2 

unten . 1 

Ein Zeichen ist aus acht solchen Punktreihen zusammen¬ 
gesetzt. Die binären Wertigkeiten der einzelnen Punktspalten 
werden über die CHR$()-Funktion in einem String addiert 
und an den 1526 gesandt, der das selbstdefinierte Zeichen 
druckt. 

Das folgende kleine Programm druckt einen senkrechten 
Strich: 

10 open 5,4,5 

20 a$=chr$(255): rem eine Punktreihe 

30 for i=1 to 7 : rem Rest des Zeichens 

40 a$=a$+chr$(0): rem mit Leerraum 

50 next i :rem auffüllen 

60 print# 5,a$ 

70 closeö 
Tips zur Benutzung 

Das eigentliche Programm beginnt ab Zeile 60000: Der 
Teil vorher dient nur zur Demonstration der 128- und der 
160-Zeichendarstellung. Ab Zeile 60000 zerlegt das Pro¬ 
gramm den zu druckenden String (XX$) in seine Einzelteile, 
baut daraus die selbstdefinierten Zeichen zusammen und 
schickt diese an den Drucker. 

Wenn Sie das Unterprogramm in einem Basic-Programm 
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UND DAS IST ZUM VERGLEICH DIE NORMALE GROESSE.DA SIEHT MAN DEM UNTERSCHIED! 


Bild 1. Die drei Schriftmodi des 1526, die mit diesem Unterprogramm möglich sind 
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verwenden, übergeben Sie einfach die zu druckenden 
Zeichen in der Variablen XX$ an das Unterprogramm. Das 
Unterprogramm wird, wie üblich, mit einem GOSUB gestar¬ 
tet. GOSUB 60000 bewirkt eine 160-Zeichendarstellung, 
GOSUB 60810 eine »Druckbreite« von 128 Zeichen. 

Beachten Sie bitte, daß vor dem Aufruf des 128-Zeichen- 
modus erst einmal der 160-Zeichenmodus aktiviert werden 
muß. Warum? Nun, beim ersten Durchlauf des Programmes 
werden alle DATAs in Variablenfelder (VI $() und V2$()) einge¬ 
lesen. Da der READ-Befehl grundsätzlich mit dem ersten 
Datum im ganzen Programm beginnt, müssen zur 128- 
Zeichendarstellung die 160-Zeichen-DATAs überlesen wer¬ 
den. Das geschieht mit einem GOSUB 60000. Danach sind 
beide Variablenfelder definiert. Sie können dann beliebig den 
128- oder 160-Zeichenmodus auf rufen. Würde zuerst der 
128-Zeichenmodus aufgerufen, würden die falschen DATAs 
gelesen und den Variablen zugeordnet. Ein reichlich selt¬ 
sames Aussehen der Zeichen wäre die Folge. 

Eine detaillierte Programmbeschreibung finden Sie in 
Tabelle 1. (Martin Riethmüller/hm) 


Zeile 

Inhalt 

0-8 

Programmkopf 

18-120 

Demo 

59000- 

Unterprogrammkopf 160-Zeichen-Karte 

60000 

Eröffnen eines Kanals zum Drucker 

60005 

Damit die DATA-Zeilen beim zweiten Aufruf nicht noch 
einmal aufgerufen werden. 

80010- 

DATA-Zeilen für den neuen Zeichensatz 

60080 

Dimensionierung der Zeichensatzvariablen und der 
Druckvariablen, falls nicht schon ab 61000 gemacht 

60085 

< SPACE > wird definiert 

60090- 

Einlesen der restlichen Buchstaben aus den DATA- 

60115 

Zeilen und Zuordnung in V1$(ll) 

60130- 

In 60140 String in einzelne Buchstaben zerlegen. 

60160 

Dann in 60145 ermitteln der Nummer des Buchsta¬ 
bens, abfangen von nicht vorhandenen Zeichen. In 

60155 auszudruckendes neues Zeichen = die letzten 
zwei Zeichen, gelesen aus dem neudefinierten Zei¬ 
chensatz in V1$(ll), 

60165 

Zeilenvorschub des Druckers auf Null 

60170- 

Ausdruckschleife mit allmählicher Verschiebung des 

60185 

Druckkopfes durch LES 

60190 

Zeilenvorschub 

60200 

Rückkehr zum Hauptprogramm 

60800- 

Unterprogrammkopf 128-Zeichen-Karte 

61000 

Eröffnen eines Kanals zum Drucker 

61005 

Damit die DATA-Zeilen beim zweiten Aufruf nicht noch 
einmal aufgerufen werden 

61010- 

Dimensionierung der Zeichensatzvariablen und der 

61015 

Druckvariablen, falls nicht schon ab 61000 gemacht 

61020- 

<SPACE> wird definiert 

61035- 

DATA-Zeilen, in denen der neue Zeiohensatz steckt 

61115- 

Einlesen der restlichen Buchstaben aus den DATA- 

61130 

Zeilen und Zuordnung in V1$(IUJ) 

61140 

Zeilenvorschub des Druckers auf Null 

61145- 

ln 61155 Zerlegung des eingegebenen Strings in ein- 

61220 

zelne Buchstaben. Dann in 61160 ermitteln der 

Nummer des Buchstabens, abfangen von nicht vorhan¬ 
denen Zeichen. Ab 61170 Zusammenbau von 5 
neudefinierten Zeichen aus 8 Zeichen von XX$. 

(Immer 5 »Streifen« zu einem neuen Zeichen.) 

61225- 

Ausdruckschleife mit allmählicher Verschiebung des 

61235 

Druckkopfes durch LES 

61245 

Zeilenvorschub 

61250 

Rückkehr zum Hauptprogramm 


0 REH ' 

1 REH " —(3SPACE >160/120—ZEICHEN—KARTE <3SP 
ACE>3 

2 REM " —I4SPACE JFUER COMMODORE 1526<4SPAC 
E>- 

3 REM " — C2SPACE >VON MARTIN RIETHMUELLER<2 
SPACE>= 

4 REM " —<2SPACE >BEI FRÄSEN ZUM PROGRAMMC2 
SPACE>= 

5 REM " —(3SPACE10DER ZUM 1526-DRUCKERT3SP 
ACE> — 

6 REM " rSEBE ICH GERNE RAT+AUSKUNFT- 

7 REM " -C&SPACE1 TEL.07152/47418C5SP ACE> = 

18 CLRiOPEN 1,4 

19 PRINT”<CLR>" 

20 REM ***** DEMO ***** 

30 XX*="":FOR X=32 TO 94:XX*=XX*+” ■■+CHR*( 
X):NEXT 

40 XX*=XX*+”DAS IST DER ZEICHENSATZ DES PR 
SMS. “ 

60 GOSUB 60000 

70 XX*=””:FOR X=32 TO 94:XX*=XX*+” ”+CHR*( 
X>:NEXT 

90 GOSUB 61000 

100 PRINTttl,"UND DAS IST ZUM VERGLEICH DIE 
NORMALE GROESSE.DA SIEHT MAN DEN 
110 PRINT#1,"UNTERSCHIED!”:GOTO 20 
120 REM ********** DEMO-ENDE *********** 
59000 REM 

.»>-*-»-*-*-*-1L»-*Jt*-**-»- ), ~-*-*-*-*. < *-*-*- i t.*-*JL*.*.*2L*^*-*.*-*. 

s 

59010 REM ”z;t7SPACE>UNTERPROGRAMM 160-ZEIC 
HEN-KARTE FUER DRUCKER 1526<10SPACE> 

59020 REM 

59030 REM AUFRUF: GOSUB 60000.DER INHAL 
T DER VARIABLEN XX* WIRD AUSGEDRUCKT 


59040 REM 

590,. REM ”^{1BSPACE>VERWENDETE VARIABLEN! 
28SPACE>— 

59060 REM “ = {66SPACE> = 

59070 REM STATUSVARIABLE C TS 1 (ZUR VE 
RMEIDUNU DER MEHRFACHEN EINLESUNG<3S 
PACE3_ 

59080 REM DER DATAZEILEN IN C VI*(94) 3 
<36SPACE>— 

59090 REM “s LAUFVARIABLEN C II 3 UND C JJ 
JC34SPfiCE> = 

59100 REM DATALESE-VARIABLE C AA ](41SP 

ÄCE> = 

59110 REM ARBEITSVARIABLE t VI* 3{42SPA 
CE >3 

59115 REM “3 ARBEITSFELD C W1(2) 3I44SPACE 
>- 

59120 REM C LE* 3 ZUR POSITIONIERUNG DE 
S DRUCKKOPFES(23SPACE3- 
59130 REM DAS FELD t VI*(94) 3,DAS DEN 
NEUEN ZEICHENSATZ BEINHALTET.C7SPACE 
>= 

59140 REM ”= DAS FELD C DR*(160) 3,DAS AUS 
GEDRUCKT WIRD.<22SPACEI = 

7 

60000 OPEN 4,4 

60005 TS=TS+1:IF TS>1 THEN 60130 
60010 DATA 0,232,0,0,192,0,192,0,112,160,1 
12,160,72,248,176,0,152,32,200,0,80 
60015 DATA 168,80,8,0,64,128,0,112,136,0,0 
,0,136,112,0,80,32,80,0,32,112,32,0, 
0,4 

60020 DATA 24,0,32,32,32,0,0,0,8,0,24,32,1 
92,0 

60025 DATA 248,136,248,0,64,192,248,0,184, 
168,232,0,168,168,248,0,96,184,32 
60030 DATA 0,232,168,184,0,248,168,184,0,1 
2B,160,248,0,248,168,248,0,232,16B,2 
48 

60035 DATA 0,0,40,0,0,0,4,40,0,32,80,80,13 
6,80,80,80,0,136,80,80,32,128,168,22 


< 170> 

< 135> 

< 138> 

<080 > 

<095> 

<142> 
<081 > 

< 166 > 
<144> 

< 153> 
<007> 
<086> 

<025> 

<103> 

< 080> 

<065 > 
<126> 

<080> 

<150> 
<007 > 

<046> 

<239> 

< 115> 

< 002 > 

< 135> 

<147> 

< 104> 

<083 > 
<065> 
<161 > 
< 220 > 
<088> 
<095> 

< 133> 

<094> 

<029> 



<028> 

<156> 

<248> 

<081 > 


<201 > 

<048> 
< 159> 

< 001 > 


Tabelle 1. Die einzelnen Programmzeilen aufgeschlüsselt 


Listing 1.128/160 Zeichen auf dem 1526 (MPS 802). 
Beachten Sie bitte zur Eingabe den Checksummer 64. 
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60040 

60045 


60050 

60055 

60060 


60065 


60070 

60077 

60080 

60085 

60090 
60095 
60100 
60105 
60110 
60115 
60130 
60135 
60140 

60145 

60150 

60155 

60160 

60165 

60170 

60175 

60180 

60185 

60190 


60200 

60800 


60810 


60820 


60830 


60840 


60850 

60860 

60870 


60880 

60890 

60900 

60910 

60915 

60920 

60930 


60940 

60950 


61000 


DATA 0,112,168,200,080 
DATA 120,160,120,0,248,168,112,0,112 
,136,136,0,248,136,112,0,248, 168, 168 
,0 

DATA 248,160,128,0,248,136,152,0,248 
,32,248,0,0,248,0,0,136,136,240,0 
DATA 248,112,136,0,248,8,8,0 
DATA 248,64,192,248,248,64,56,0,112, 
136,112,0,248, 160,224,0,112,152,120, 
0 

DATA 248,176,232,0,104,16B,176,0,128 
,248,128,0,248,8,248,0,240,8,240,0,2 
48 

DATA 8,56,248,216,32,216,0,224,40,24 
8,0,152,168,200,0 

DATA 0,248,136,0,208,168,72,0,0,136, 
248,0,64,248,64,0 

DIM V1*(94):IF TZ<1 THEN DIM DR*(160 
) 

V1* < 32)=CHR*(0)+CHR* C 0)+CHR*(0)+CHR* 
( 0 ) 

FOR 11=33 TO 94 
FOR JJ=1 TO 4 
READ AA 

V1*(II)=V1*(II)+CHR*(AA>:AA=0 
NEXT JJ 
NEXT 11 

FOR 11=1 TO 80 
FOR JJ=1 TO 2 

Vl*=MIDS(XX*,II*2-(2-JJ>,1)sIF Vl*=” 
"THEN Vl*=" - 

W1(JJ)=ASC(V1*>:IF ASC(V1*>>94 OR AS 
C(VIS)<32 THEN W1(JJ>=32 
NEXT JJ 

DR*(80+II)=V1*(W1<1> >+Vl*(Wl(2)) 

NEXT II 

OPEN 6,4,6:PRINT#6,CHRS(0>:CLOSE 6 
OPEN 5,4,5 
FOR 11=1 TO 80 

PRINT#5,DR* < 80+II>:PRINT#4,LE*+CHR*( 

254) 

..NEXT II 

CLOSE 5> LE*= " “ s OPEN 6,4,6:PRINTtt6,CH 
R* < 23 ) : PR I NT#4 , : PR I NT#6, CHR* ( 32 > : CLtJ 
SE 6 

XX*="“JCLOSE 4:RETURN 
REM 


< 100 > 
< 121 > 


<201 > 


<215> 

<127> 


<021 > 


< 106> 

< 143> 

<246> 

<243> 

<201 > 
< 020 > 

< 184> 
<213> 
<249> 

< 163> 
<144> 
<039> 
< 222 > 

<072> 

<211 > 
<203> 

<081 > 

< 191 > 

< 145> 
<245> 
<086> 

<193> 

< 147> 

46R OD 1 - 

< 164> 
<0B7> 


<068> 


REM “=<7SPACE>UNTERPR0GRAMM 128-ZEIC 
HEN-KARTE FUER DRUCKER 1526C10SPACE> 

REM 
B 

REM " = AUFRUF MIT SYS61000.DER INHAL 
T DER VARIABLEN XX* WIRD AUSGEDRUCKT 

REM 
B 

REM " - {18SPACE>VERWENDETE VARIABLEN{ 
28SPACE} = 

REM "—<66SPACE>— 

REM STATUSVARIABLE C TZ J «ZUR VE 
RMEIDUNG DER MEHRFACHEN EINLESUNGC3S 
PACEJ^ 

REM DER DATAZEILEN IN E V2*(94,5> 
]<34SPACE> = 

REM "- LAUFVARIABLEN E II 3 UND E JJ 
3C34SPACE> = 

REM " = DATALESE-VARIABLE C AA 3E41SP 
ACE>i 

REM " = ARBEITSVARIABLE C V2* 3E42SPA 
CE>— 

REM "- ARBEITSFELD E F<8> 3<45SPACE> 

REM E LE* 3 ZUR POSITIONIERUNG DE 
S DRUCKKOPFES{23SPACE>= 

REM "3 DAS FELD E V2*<94,5> 3,DAS DE 
N NEUEN ZEICHENSATZ BEINHALTET.C5SPA 
CE >3 

REM ”3 DAS FELD E DR*<160) 3,DAS AUS 

GEDRUCKT WIRD.122SPACE}- 

REM "7««»«>«««»»« «»«««»»«««in»»««»» 


<101 > 


<137> 


< 137> 


< 157> 

< 169> 
<126> 


<074> 
< 220 > 
<183> 
<242> 
<174> 
<214> 
< 155> 

<026> 
<051 > 




OPEN 4,4:OPEN 5,4,5 


<050> 

<250> 


61005 

61010 

61015 

61020 

61025 

61030 

61035 

61040 

61045 

61050 

61055 

61060 

61065 

61070 

61075 

61080 

61085 

61090 

61095 

61100 

61105 

61110 

61115 

61120 

61140 

61145 

61150 

61155 

61160 

61165 
61170 

61175 

61180 

61185 

61190 

61195 

61200 

61205 

61210 

61215 

61220 

61225 

61230 

61235 

61240 

61245 

61250 
6 64'ei 


TZ=TZ+lrIF TZ>1 THEN 61140 <092> 

DIM V2*(94,5) <241> 

IF TS<1 THEN DIM DR*(180) <061> 

FOR 11=1 TO 5 <070> 

V2*«32,II)=CHR*«0) <238> 

NEXT II <043> 

DATA 0,0,250,0,0,0,224,0,224,0,20,62 
,20,62,20,98,159,242,140,0 <}830> 

DATA 198,200,16,38,198,108,154,150,1 
10,9,0,0,96,128,0,124,130,130,0,0 <199> 

DATA 130,130,124,0,0,40,16,124,16,40 
,16,16,124,16,16,0,0,1,6,0 <075> 

DATA 16,16,16,16,0,0,0,6,6,0,6,8,16, 
32,192,124,138,146,124,0. <238> 

DATA 32,64,254,0,0,70,138,146,98,0,1 
46,146,146,108,0,24,40,94,8,0 <004> 

DATA 242,146,146,140,0,60,82,146,140 
,0,144,158,176,208,0,108,146,146,108 
,0 <111> 

DATA 100,146,146,124,0,0,0,18,0,0,0, 
1,12,0,0,16,40,68,68,0 <190> 

DATA 40,40,40,40,0,6B,68,40,16,0,64, 
128,154,96,0,124,130,178,116,0 <033> 

DATA 254,144,144,254,0,254,146,146,1 
08,0,124,130,130,130,0,254,130,130,1 
24 <052> 

DATA 0,254,146,146,146,0,254,144,144 
,128,0,124,130,146,92,0,254,16,16,25 
4,0 <089> 

DATA 0,0,190,0,0, 132,130,130,252,0,2 
54,16,40,198,0,254,2,2,2,0 <241> 

DATA 254,64,32,64,254,254,64,32,254, 

0,124,130,130,124,0,254,144,144,96,0 <023> 
DATA 124,130,142,126,1,254,152,148,9 
8,0,98,146,146,140,0,128,254,128,128 
,0 <106> 
DATA 252,2,2,252,0,248,6,6,248,0,254 
,2,4,2,254,198,56,56,198,0 <084> 

DATA 224,18,18,252,0,134,154,178,210 
,0,254,130,130,0,0,76,178,146,82,0 <090> 

DATA 0,130,130,254,0,32,64,254,64,32 <163> 
FOR 11=33 TO 94 <029> 

FOR JJ=1 TO 5 <194> 

READ AA:V2*«II,JJ> =CHR*(AA) <011> 

NEXT JJsNEXT II <123> 

OPEN 6,4,6:PRINT46,CHR*(0):CLOSE 6 <102> 

FOR 11=1 TO 16 <043> 

FOR JJ=1 TO 8 <227> 

V2*=MID* «XX*,11*8—(8—JJ),1):IF V2*=" 

"THEN V2*=" “ <154> 

F <JJ)=ASC <V2*):IF ASC«V2*)<32 OR ASC 
<V2*> >94 THEN F(JJ)=32 <199> 

NEXT JJ <202> 

DR*(11*5-4)=V2*(F(1),1)+V2* < F <1),2> + 

V2*(F<1),3)+V2* «F(1),4)+V2*(Fl 1),5) <059> 

DR*(11*5-4 > =DR*(11*5-4)+V2*(F(2),1) + 

V2* <F <2>,2)+V2*(F12),3) <037> 

DR*(II*5—3)=V2*(F(2),4)+V2*(F(2),5>+ 

V2*(F(3),1)+V2*(F <3),2)+V2*(F<3>,3) <024> 

DR*(11*5-3)=DR* <11*5-3)+V2* «F(3) ,4) + 
V2*(F(3),5)+V2*(F(4),1) <068> 

DR*(I1*5—2)=V2*(F(4),2)+V2*(F(4),3)+ 

V2*«F(4) ,4)+V2*(F('f> ,5)+V2*(F(5) , 1 > <247> 

DR*(11*5-2)=DR*(11*5-2)+V2*(F(5),2> + 

V2*(F <5>,3)+V2*(F(5),4) <240> 

DR*(11*5—1)=V2* <F(5),5)+V2*(F(6),1> + 
V2*(F<6>,2)+V2*(F(6),3)+V2*«F<6),4) <031> 

DR*(I1*5-1)=DR*(I1*5-1)+V2*(F<6),5>+ 
V2*(F(7>,1)+V2*«F(7),2) <155> 

DR*(11*5—0)=V2*(F(7),3)+V2*(F <7),4> + 

V2*(F(7),5)+V2*(F(8),1)+V2*(F(B),2) <251> 

DR*(11*5-0)=DR*(I1*5-0)+V2*(F(8),3)+ 

V2*(F(8),4)+V2*(F(8),5) <186> 

NEXT II <235> 

FOR 11=1 TO 80 <120> 

PRINT#5,DR*(II>:PRINT#4,LE*+CHR*(254 
>:LE*=LE*+” “ <079> 

NEXT II <250> 

LE*="“ <163> 

OPEN 6,4,6:PRINT#6,CHR*(26):PRINT#4, 

:PRINTH6,CHR*(32):CLOSE 6:CLOSE 4:CL 
OSE 5 <090> 

XX*="":RETURN <204> 


Listing 1.128/160 Zeichen mit dem 
Commodore-Drucker MPS 802/1526 (Schluß) 
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Etiketten 
wie gedruckt 

Mit diesem Programm sind Sie in der 
Lage, professionell beschriftete Eti¬ 
ketten herzustellen. Und das mit allen 
ASCII-Zeichen des C 64. Das Pro¬ 
gramm hat einen eigenen Editor zur 
Eingabe der Beschriftung. Fertige 
Labels können gespeichert und ge¬ 
laden werden. 

Eine saubere Diskettenbeschriftung macht einiges her. 
Verschieden gestaltete Labels schaffen Ordnung; nicht nur 
bei Disketten. 

Das Programm ist für einen 1526-Drucker konzipiert, ist 
aber leicht auf andere Drucker anzupassen. Vorausgesetzt, 
der Drucker kann die C 64-Grafikzeichen drucken. Wenn 
nicht, läßt sich das Programm trotzdem einsetzen, wenn man 
sich auf die Verwendung von Buchstaben beschränkt. 

Mit einem Commodore 1526-Drucker können Sie Ihre Auf¬ 
kleber mit sämtlichen alphanumerischen und C 64-eigenen 
Zeichen verwenden. Auch reverse und doppelt breite Schrift 
ist möglich. Das Programm ist für die Verwendung von Endlos¬ 
etiketten der Größe 88,9x35,5 mm gedacht. s^gR 


Komfortable Hilfsroutinen 


Sehr gut am Programm ist die Tatsache, daß einmal erstellte 
Aufdrucke gespeichert und wieder geladen werden können. 
Aber damit sind die Möglichkeiten, die das Programm »Etiket¬ 
ten 64« bietet, noch lange nicht erschöpft. Einige Hilfsfunk¬ 
tionen zur Arbeit mit Disketten runden die »ganze Sache« ab. 
Man kann sich das Directory zeigen lassen und Befehle an 
das Diskettenlaufwerk senden. Zum Beispiel "R:" für 
Rename, "V * für Validate oder' I * zum Initialisieren. Das Pro¬ 
gramm ist weitestgehend absturzsicher (Ausnahme: Device 
not Present Error). Fehleingaben können leicht wieder rück¬ 
gängig gemacht werden: Man gelangt ohne Datenverlust 
immer wieder ins Hauptmenü zurück. 

»Etiketten 64« ist vollständig in Basic geschrieben, um die 
Anpassung auf andere Drucker zu erleichtern. Deshalb 
wurde auch der Programmteil DRUCKEN an das Programm¬ 
ende gelegt. 

Wenn Sie einen Compiler besitzen, sollten Sie das Basic- 
Programm damit behandeln. Der Editor wird dann so schnell, 
daß die Eingabegeschwindigkeit nichts mehr zu wünschen 
übrigläßt. Das soll aber keinesfalls heißen, das Programm 
würde ohne Compiler nur bedingt funktionieren. »Etiketten 
64« ist auch in nicht compilierter Form ein sehr gutes Pro¬ 
gramm. 

Wenn Sie das Programm starten (sicherheitshalber nach 
dem Eintippen erst speichern), erscheint das Hauptmenü mit 
dem Eingabefeld. 

Die Menüpunkte: 

Fl — Editieren; der Aufdruck kann erstellt werden. 

Während des Editierens behalten die Cursortasten ihre 
volle Funktion bei. Allerdings nur innerhalb des Eingabefel¬ 
des. Ebenso funktionieren auch alle anderen Tasten des C 64 


zum Editieren. HOME setzt den Cursor in die linke obere 
Ecke, CLR löscht das Eingabefeld, DEL löscht das Zeichen 
unterhalb (!) des Cursors. INST fügt einen Leerraum an der 
Cursorposition ein. 

Ein Untermenü am unteren Bildschirmrand erleichtert das 
Editieren noch mit folgenden Funktionen: 

Revers schaltet den Reversmodus ein undaus. Der aktuelle 
Modus wird angezeigt. 

Breit schaltet die Breitschrift ein und aus. Doppelt große 
Zeichen werden durch einen vorangestellten Pfeil gekenn¬ 
zeichnet. 

Zeile löschen — eine Zeile wird ab Cursorposition 
gelöscht. Alle anderen Zeilen rücken nach. Eine komplette 
Zeile wird gelöscht, wenn der Cursor am Anfang der jeweili¬ 
gen Zeile steht. 

Zeile einfügen — eine Leerzeile wird ab Cursorposition 
eingefügt. Eine ganze Zeile wird eingefügt, wenn der Cursor, 
wie bei »Zeile löschen« am Zeilenanfang steht. 

Ende — Rücksprung ins Hauptmenü. 

F3 — Drucken; das Eingabefeld wird gedruckt. Zum Druck 
müssen die Etiketten beim 1526-Drucker linksbündig einge¬ 
legt werden. Die obere Kante des Aufklebers soll gerade über 
dem Farbband sichtbar sein. 

F5 — speichern; das Eingabefeld wird auf Diskette 
gespeichert. Wurde der Menüpunkt irrtümlich angewählt, 
kommt man mit F8 ins Hauptmenü zurück. Vor dem Spei¬ 
chern muß der Bildschirm eingegeben werden. Diskettenfeh¬ 
ler werden angezeigt und werden mit RETURN bestätigt. 
Sollte bereits ein Etikett mit dem eingegebenen Namen auf 
der Diskette vorhanden sein, so muß man ein Überschreiben 
mit »J« bestätigen. 

F7 — laden: ein Etikettdesign wird von Diskette geladen. 

F2 — Directory; die auf einer Diskette gespeicherten Auf- 
klebefbeschriftungen werden aufgelistet. 

Weite» holt den nächsten Directory-Eintrag. 

Ende stoppt die F2-Funktion. Der zuletzt sichtbare Etiket¬ 
tenname wird in die Ladefunktion übernommen. 

F4 — Befehle an das Diskettenlaufwerk. 

Hier können Sie Direktbefehle ans Floppylaufwerk 
schicken. Mit F8 kann diese Funktion abgebrochen werden. 

F8 — Ende; beendet einen Programmteil oder das ganze 
Programm. 


Leichte Druckeranpassung 


Tabelle 1 zeigt die Variablenliste des Etikettendruckpro¬ 
gramms. Möchten Sie das Listing auf einen anderen Drucker 
als dem Commodore 1526 anpassen, müssen die Sekundär¬ 
adressen und Steuercodes entsprechend geändert werden. 
Sollte eine Anpassung Ihres Druckers bezüglich der Grafik¬ 
zeichen und doppelt breiter Schrift nicht möglich sein, kön¬ 
nen Sie das Programm dennoch verwenden. Denn ohne 
Grafik- und Steuerzeichen sollte das Programm auf jedem 
Drucker laufen, wenn der Drucker eine Einstellung des Zei¬ 
lenabstandes zuläßt. 

(Gerhard Zinner/hm) 



Bild 1. Leicht lassen sich solche Labels drucken 
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Drucker-Anwendung 


#v" 






CR$ 


Cursor Right String (zur Cursorpositionierung) 

CD$ 

— 

Cursor Down String (zur Cursorpositionierung) 

LES 

— 

String aus Leerzeichen 

T$ 

— 

Textstring (wird aus Eingaben gebildet) 

N 

— 

Pointer f+r Diskettenformatierung 

S 

— 

Cursorspalte 

R 

— 

Cursorreihe 

A,L 

— 

Aktuelle Cursoradresse 

RV 

— 

Pointer für Reversmodus 

BR 

— 

Pointer für Breitmodus 

U 

— 

Laufvariablen 

UE 

— 

Pointer für Datei überschreiben 

E 

— 

Fehlernummer der Diskette 

E$ 

— 

Fehlertext der Diskette 

AS 

— 

Eingabestring für GET 

EN 

— 

Pointer für Unterprogramm beenden 

DE 

— 

Pointer für Eingabekorrektur 

M 

— 

Max. Eingabelänge 

DS 

— 

Dateiname, Disketten-Kommando 

1$ 

— 

Disketten-ID 

DAS 

— 

Dateiname Alt (für Rename) 


Tabelle 1. Variablenliste zum Etikettendrucker 


lese 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 


ETIKETTEN 64 


1985 BY 


GOTO 2050 
REM 
REM 
REM 

REM - 

REM 

REM PROGRAMM ZUM BESCHRIFTEN VON 
REM ENDLOS - ETIKETTEN DER GROESSE 
REM 88.5 * 35.7 MM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

PRINT LEFT*(CD*.17) 

FÜR 1=0 TO 6 
PRINT LE* 

NEXT 
RETURN 


G. ZINNER 
SCHMALE STR.3 
4300 ESSEN 11 


- ALLG. U'PROGS — 


MENUEFELD LDESCHEN 


REM 


CURSOR SETZEN 


IF S=29 THEN S=28 
A=1024+(< R+3)*40)+S+5 

IF PEEK CA)>127 THEN POKE A,PEEK(A)-12 
8:RETURN 

POKE A,PEEK<A>+128!RETURN 


REM 


SCHREIBFELD LOESCHEN 


PRINT LEFT*(CD*,4) 

FOR 1=1 TO 11 

PRINT LEFT*(CR*,6)LEFT*<LE»,28) 

NEXT 

RETURN 


REM 


STRING T* ZUSAMMENBAUEN 


RV=0:T*=“" 

FOR I=L TO L+27 
A=PEEK(I> 

IF RV=0 AND A>128 THEN T*=T*+"{RVSON> 
":RV=1 

1510 IF RV=1 AND A<128 THEN T*=T*+"{RVOFF> 
“:RV=0 


<090> 

<054> 

<064> 

<196> 

< 125> 
<096> 
<078> 
<133> 
<116> 

< 136> 

< 146> 
<156> 

< 140> 
<245> 
<251 > 

< 196> 
<206> 

< 145> 
<007> 

< 1 65> 
<246> 
< 000 > 
<172> 
< 020 > 
<076> 
<175> 
<148> 
<008> 
<068> 
<252> 
<031 > 
<016> 

< 205> 
<213> 

<206> 

< 1 B8> 
<066> 
<028> 
<086> 
<105> 
<021 > 

< 113> 
<160> 
<218> 

< 146> 
<242> 

< 1 66 > 
<206> 
<015> 
<141 > 

< 116 > 

< 202 > 


OHL 


ns 


1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

17B0 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1740 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 


IF A>12B THEN A=A-128 
IF «32 THEN A=A+64:GOTO 1560 
IF A>63 AND A<96 THEN A=A+32:GOTO 
0 

IF A>96 THEN A=A+64 
T*=T*+CHR*(A) 

NEXT 

RETURN 


156 


REM 


DISKETTEN FEHLER 


UE=0 

INPUT#15,E,E*,T,T 

IF E=0 THEN RETURN 

PRINT LEFT*(CD*.25)LEFT*(CR*,2»; 

: 

IF E< >63 THEN 1730 

PRINT Ej E*;" - AENDERN (J/N) 

GET A*: IF A*=' , ‘ , THEN 1690 
IF A*<>"J" THEN 1770 
UE=1:GOTO 1770 
: 

PRINT EjE*;“ - <RETURN>"; 

GET A* 

IF A*< >CHR*(13) THEN 1740 

PRINT LEFT*(CD*,25)LEFT*(CR*,2)LEFT*( 
LE*,37); 

RETURN 

: 

REM DATEINAMEN EINGEBEN 

s 

R=19:S=-l:EN=0:DE=0 
GOSUB 1320 

GET A*:IF A*="“ THEN 1840 
GOSUB 1320 

IF A*=CHR#(13) THEN 1940 
IF A*=CHR*(20) THEN DE=lsBOTO 
IF A*=CHR#(140)THEN EN= 

IF A*<CHR*(32) THEN 
IF A*>CHR*(94) THEN 
S=S+1:IF S>M THEN S=M 
PRINT LEFT*(CD*,R+4)LEFT*(CR*,S+4 ); 
PRINT A*;:GOTO 1830 
RETURN 


1940 

=1:GOTO 1940 
1830 
1830 


REM 

REM 

REM 


REM 


- ARBEITSFELD - 


BILDSCHIRMFARBEN 


POKE 53280,0!POKE 53281,0!PRINT"<WHIT 
E>" 

: 

REM ALLE TASTEN REPEAT 

I 

POKE 650,128 


REM 
! 

PRINT CHR*(8) 


SHIFT+COMMODORE AUS 


REM 


FESTE VARIABLEN 


CR*="C37RIGHT >“ 
CD#= " <HOME, 25D0WN } " 
LE*="C39SPACET" 

T*="":N=0 


REM 


BILDSCHIRM AUFBAUEN 


PRINT "{CLR,3SPACE>ETIKETTEN 64"SPC(9 
>"(W)1985 BY GZ":PRINT 
PRINT '• 

2260 PRINT " -X5SPACE> 7«»*«>»*.*»a^«**aa«**» 


< 160> 

< 107> 

<246> 
<221 > 
<014> 
<056> 

< 114> 
<042> 
<206> 
<062> 
<016> 
<111> 
<045 > 

< 174> 

< 112 > 
<002> 
<044> 
<092> 
<055> 
<216> 

< 172> 
<228> 

< 170> 

< 119> 
<212> 

< 179> 
<058> 
<242> 
<037> 
<00B> 

< 103> 

< 120 > 

<243> 

< 140> 
<254> 
<247> 
<100> 
<219> 

< 175> 
<240> 

< 179> 
<241 > 
<220> 
<148> 
<158> 
<214> 
<035> 
<234> 
<198> 
<208> 
<218> 

< 199> 
<238> 

<146> 

<004> 

<087> 

< 124> 
<231 > 
<044> 
<027> 
<064> 
<217> 
<084> 
<037> 

< 104> 

< 156> 

< 187> 
<042> 

< 161 > 

< 154> 
<008> 
<174> 

<014> 

< 041 > 
<227> 


Listing zu »Etiketten 64«. Beachten Sie bitte den Check¬ 
summer 64. 
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Drucker-Anwendung 


2270 FOR 1=1 TO 11 

2280 PRINT " = {2SPACE>- = “SPC(28)" — (2SPACE 
>=” 

2290 NEXT 1 

2300 PRINT “ {3SPACE} 7.*«A**>**»«.********* 
»>-».» »»»»9 {3SPACE 

2310 PRINT “ J « » » » »«_»_«»_»_»_» «_»_»»». « « «»»<■»»»» 
***•••***" 

2320 : 

2330 BOSUB 1390 
2340 : 

2350 REM MENUE ANZEIGEN 

2360 : 

2370 GOSUB 1240 

2380 PRINT LEFT*(CD*,17> 

2400 PRINT “{3SPACE,RVSON,SPACE>MENUE{SPAC 
E,RVOFF>“ 

2410 PRINT “ I3SPACE>ötf?gU6SPACE>5@55" 

2420 PRINT "C3SPACE,RVSON,SPACEIF1{SPACE,R 
VOFF,SPACE >EDIT1EREN (6SPACE,RVSON,SPA 
CE >F2<SPACE,RVOFF,SPACE >DIRECTORY" 
2430 PRINT "{3SPACE,RVSON,SPACE>F3{SPACE,R 
VOFF,SPACE >DRUCKENC8SPACE,RVSON,SPACE 
>F4{SPACE,RVOFF,SPACE >DISK COM.” 

2440 PRINT “C3SPACE,RVSON,SPACE >F5{SPACE,R 
VOFF, SPACE >SPE ICHERN {6SPACE 
2450 PRINT “{3SPACE,RVSON,SPACE>F7{SPACE,R 
VOFF,SPACE >LADEN{10SPACE,RVSON,SPACE > 
F8 {SPACE , RVOFF , SPACE >ENDE •• 

2460 s 

2470 GET A*:IF A*="" THEN 2470 

2480 IF A*<" {F1 >" OR A*V'<F8>“ THEN 2470 

2490 : 

2500 ON ASC(A*>-132 GOTO 2590,6790,3990,44 
10,4820,5250,2370,6580 
2510 GOTO 2370 
2520 s 
2530 : 

2540 REM - 

2550 REM-EDITIEREN- 

2560 REM - 

2570 s 
2580 : 

2590 GOSUB 1240 

2600 PRINT LEFT*(CD*,17) 

2620 PRINT “{3SPACE,RVSON,SPACE>EDITIEREN! 
SPACE,RVOFF >" 

2630 PRINT •'{3SPACE>0e0@"SPC(9>‘ , e@B" 

2640 PRINT •• {3SP ACE, RVSON, SP ACE >F1 {SPACE,R 
VOFF,SPACE}REVERS > CRVSON >AUS{RVOFF > < 


2650 


2660 


2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 


PRINT ■{3SPACE,RVSON,SPACE >F3{SPACE,R 
VOFF,SPACE >BREITE >{RVSON >NRM{RVOFF >< 
{3SPACE>Pgeg M 

PRINT {3SPACE,RVSON,SPACE>F5{SPACE,R 
VOFF,SPACE > ZEILE LOESCH{3SPACE,RVSON, 
SPACE >F6{SPACE,RVOFF,SPACE > ZEILE EINF 


PRINT "{23SPACE,RVSON,SPACE >FB{SPACE, 
RVOFF,SPACE >ENDE" 

BR=0:RV=0 

REM CURSOR POSITIONIEREN 

I 

R=lsS=l 

PRINT LEFT*(CD*,5)LEFT#(CR*,6>; 

I 

GOSUB 1320 

GET A*:IF A*="" DR A*=CHRS(34)THEN 27 
60 

GOSUB 1320 

IF A*>CHR*(31> AND A*<CHR*(12B> THEN 


GOSUB 3840:GOTO 2750 

IF A*>CHR*(160)THEN GOSUB 3840:GDTO 2 
750 

IF A*=CHR*<140)THEN 2370 

IF A*=CHR*(133)THEN GOSUB 3460:GOTO 2 

750 

IF A*=CHR*(134)TFEN GOSUB 3520:GOTO 2 
750 

IF A*=CHR*<135)THEN GOSUB 35B0:GOTO 2 
750 

IF A*=CHR*(139)THEN GOSUB 3710:GOTO 2 
750 

IF A*=CHR*(19) THEN 2720 

IF A*=CHR*(147)THEN BOSUB 1390:GOTO 2 


<129> 

2880 

720 

IF A*=CHR*(17> THEN BOSUB 

3000:GOTO 2 

< 1057 

<22B> 


750 


< 141 > 

< 086 > 

2890 

IF A*=CHR*(145)THEN GOSUB 

750 

3050:GOTO 2 

<049> 

<230> 

2900 

IF A*=CHR*(29> THEN GOSUB 
750 

3100:GOTO 2 

<230> 

<1B6> 

2910 

IF A*=CHR*(157)THEN GOSUB 

3150:GOTO 2 


<010> 


750 


<207> 

<081 > 

2920 

IF AS=CHRS(148)THEN GOSUB 

3260:GDTO 2 


<030> 


750 


<093> 

<096> 

2930 

IF A*=CHR*(20) THEN GOSUB 

3360: GOTO 2 


<050> 


750 


< 117> 

<200> 

2940 

IF A*=CHR*(13> THEN GOSUB 

3200:GOTO 2 


<202> 


750 


<065> 

< 200> 

2950 

: 


< 132> 


2960 

GOTO 2750 


< 130> 

<101> 

2970 

: 


<152> 

<01B> 

2980 

REM CURSOR DOWN 


<225> 


2990 

I 


<172> 


3000 

R=R+1:IF R>11 THEN R=1 


<050> 

<055> 

3010 

RETURN 


<01B> 


3020 

: 


<202> 


3030 

REM CURSOR UP 


< 155> 

< 145> 

3040 

: 


<222> 


3050 

R=R—1:IF R<1 THEN R=ll 


<160> 

<117> 

3060 

RETURN 


<068> 


3070 

: 


<252> 


3080 

REM CURSOR RIGHT 


<245> 

<005> 

3090 

: 


<0I8> 

<150> 

3100 

S=S+1:IF S>28 THEN S=1 


<102> 

<013> 

3110 

RETURN 


<120> 

<207> 

3120 

: 


<048> 

<180> 

3130 

REM CURSOR LEFT 


<058> 


3140 

: 


<068> 

<030> 

3150 

S=S—1:IF S<1 THEN S=28 


< 196> 

<188> 

3160 

RETURN 


<170> 

<210> 

3170 

: 


<098> 

<220> 

3180 

REM RETURN 


<254> 

<157> 

3190 

i 


< 118> 

<0B6> 

3200 

R=R+1:IF R>11 THEN R=1 


<252> 

<179> 

3210 

S=1 


< 151 > 

<006 > 

3220 

RETURN 


<230> 


S;; 

: 

REM INSERT 


< 158> 
<100> 

<16B> 

3250 

1 


< 17B> 

<210> 

3260 

IF S=28 THEN RETURN 


<124> 


3270 

A=1024+ ( (R+3) »40) +S+6 : E=A+27-S 

< 116> 

<164> 

3280 

FOR I=E TO A STEP—1 


< 152> 

<025> 

3290 

POKE I,PEEK(I—1) 


<019> 


3300 

NEXT 


<006> 


3310 

POKE 1,32 


<098> 

< 178> 

3320 

RETURN 


<074> 


3330 

: 


<004> 


3340 

REM DELETE 


<035> 

<034> 

3350 

I 


<024> 


3360 

IF S=28 THEN RETURN 


<096> 


3370 

A=1024+((R+3)*40)+S+5:E=A+27—S 

<154> 


3380 

FOR I=A TO E 


<188> 

<055> 

3390 

POKE I , PEEK (1 +1 > 


<120> 


3400 

NEXT 


< 108> 

< 119> 

3410 

POKE 1,32 


<200> 

< 13B> 

3420 

RETURN 


< 176> 

<126> 

3430 

: 


<104> 

< 150 > 

3440 

REM REVERS AN / AUS 


<011> 

<146> 

3450 

1 


<124> 

<074> 

3460 

PRINT LEFT*(CD*,21)SPC(16) 

"{RVSON>": 

<076> 

<156> 

3470 

IF RV=0 THEN PRINT"AN{SPACE,RVOFF>":R 


< 176> 


V=l:RETURN 


<17B> 

<022> 

3480 

IF RV=1 THEN PR I NT *' AUS {RVOFF > ": RV=0 : R 




ETURN 


<193> 

<245> 

3490 

: 


< 164> 

<042> 

3500 

REM BREITSCHRIFT NRM/DOP 

<075> 

<216> 

3510 

: 


< 184> 


3520 

PRINT LEFTS(CD$,22)SPC(16) 

"{RVSON 

<140> 

<007> 

3530 

IF BR=0 THEN PR INT "DOP {RVOFF >•' t BR=1: R 




ETURN 


< 143> 

<168> 

3540 

IF BR=1 THEN PRINT"NRM{RVOFFJ":BR=0:R 


<220> 


ETURN 


<224> 


3550 

: 


<224> 

<228> 

3560 

REM ZEILE LOESCHEN 


< 146> 

<110> 





< 130> 





< 150> 

<072> 






Listing zu »Etiketten 64« (Fortsetzung) 
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Drucker-Anwendung 


3570 : 

3580 A=1024+( (R+3)»40)+S+5:E=A+2B-S 

3590 IF R*=ll THEN J=A:GOTO 3660 

3600 Al=(10-R)»40+A 

3610 FDR J=A TO Al STEP 40 

3620 FOR 1=J TO E 

3630 POKE 1,PEEK(1+40) 

3640 NEXT:E=E+40 
3650 NEXT 

3660 FOR I-J TO EsPOKE I,32:NEXT 
3670 RETURN 
3680 : 

3690 REM ZEILE EINFUEGEN 

3700 : 

3710 A=1024+ t (R+3 > »40) +S+5+40 
3720 IF R=11 THEN RETURN 
3730 A1 = < 10-R) »40+A: E=A 1 +28—S 
3740 FOR J=A1 TO A STEP -40 
3750 FOR I=J TO E 
3760 POKE I,PEEK <1-40) 

3770 NEXTs E=E—40 
3780 NEXT 

3790 FOR I=J TO E 3 POKE 1,32SNEXT 
3800 RETURN 
3810 : 

3820 REM ZEICHEN SETZEN 

3830 ! 

3840 IF BR=1 THEN S=S+1 

3850 S=S+1:IF S>29 THEN S=29 

3860 PRINT LEFT*(CD*,R+4 >LEFT*(CR*,S+4 )f 

3870 IF RV=1 THEN PRINT"CRVSON>"; 

3880 IF RV=0 THEN PRINT"CRVOFFJ"; 

3890 IF BR=1 THEN PRINT"CLEFT>+"j 
3900 PRINT A*; 

3910 RETURN 
3920 s 
3930 : 

3940 REM - 

3950 REM - SPEICHERN - 

3960 REM - 

3970 : 

3980 : 

3990 GOSUB 1240 

4000 PRINT LEFT*(CD*,17) 

4010 print “£3spACE>e5B5ei?B0ees"spc(9) "eeg 
5" 

4020 PRINT "C3SPACE,RVSON,SPACEJSPEICHERNC 
SPACE,RVOFF}“SPC(9 >“(RVSON,SPACE >FBCS 
PACE ,RVOFF, SPACE>ENDE" j PRINT 

4030 PRINT “C3SPACE>>DATEINAME EINGEBEN" 
4040 PRINT:PRINT “C3SPACEJ>C15SPACEX“; 
4050 PRINT "CI7LEFT> " ; 

4060 : 

4070 REM DATEINAMEN EINGEBEN 

4080 : 

4090 IF UE=1 THEN D*=""+D*:GOTO 4220 
4100 : 

4110 M=14:GOSUB 1820 
4120 IF EN=1 THEN 2370 
4130 IF DE=1 THEN 4000 
4140 : 

4150 L=1908:GOSUB 1470 
4160 D*=LEFT*(T*,15)+"T" 

4170 : 

4180 REM BILD ABSPEICHERN 

4190 : 

4200 CLOSE 15 
4210 : 

4220 OPEN 15,8,15:OPEN B,B,B,D*+",S,W" 

4230 GOSUB 1620:IF E<>0 THEN CLOSE 8:CLOSE 
15:GOTO 4090 

4240 FOR L“1190 TO 1590 STEP 40 
4250 GOSUB 1470 
4260 : 

4270 T*="?"+T* 

4280 : 

4290 PRINT#8,T* 

4300 NEXT L 

4310 CLOSE 8:CLOSE 15 

4320 : 

4330 T*="":GOTO 2370 
4340 : 

4350 : 

4360 REM - 

4370 REM-LADEN- 

4380 REM - 


<244> 
<141 > 

< 173> 
<057> 
<127> 
<207> 
<213> 
<019> 

< 104> 
<046> 

< 172> 
< 100 > 
< 200 > 

< 120 > 
<028> 
<09B> 
< 180> 
<231 > 
<081 > 
<088> 
<021 > 
<234> 
<176> 
<046> 
<230> 
<233> 
<250> 
< 101 > 
<221 > 
<0B7> 

< 191 > 

< 139> 
< 000 > 

< 115> 
<150> 
<086> 
<096> 
<033> 
<026> 
<053> 
<136> 
<146> 
<040> 
<042> 

< 156> 


or» 


4420 

4430 

4440 


4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 

4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
n »20 
::,30 
4840 
4850 


<063> 
<107> 
<063> 
<072> 
<226> 
< 019 > 
<246> 
<053> 
< 012 > 
<207 > 
< 222 > 
<048> 
<052> 

< 177> 
<215> 
<082> 

< 131 > 
< 102 > 
<230> 

< 122 > 
< 016 > 

<092> 

<132> 

< 174> 
<172> 
<204> 

< 192> 
<090> 
<088> 
<214> 
<232> 
<005> 
<252> 
<006> 
<037> 
<236> 


4860 

4870 


4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 


PRINT LEFT*(CD*,17) 

PRINT " <3SPACE}ötfööö».f"SPC (13) " 5555 " 
PRINT "C3SPACE,RVSON,SPACE JLADEN CSPAC 
E,RVOFF >"SPC(13 >"CRVSON,SPACE >FBCSPAC 
E,RVOFF,SPACE >ENDE“:PRINT 
PRINT "C3SPACE>DATEINAME EINGEBEN" 

PR I NT: PR I NT " C3SPACE > > C1 5SPACEX "; 
PRINT “ C16LEFTV ; LEFT* (T*, 15) 

REM DATEINAMEN EINGEBEN 

i 

M=14:GOSUB 1820 
IF EN=1 THEN 2370 
IF DE=1 THEN 4420 

L=1908:GOSUB 1470 
D*=LEFT*(T*,15)+"T" 

REM BILD HOLEN 

I 

CLOSE 15 
GOSUB 1390:R=1 

OPEN 15,8,15:OPEN B,8,8,D*+”,S,R" 
GOSUB 1620:IF E<>0 THEN CLOSE 8:CLOSE 
15:GOTO 4510 
INPUT#8,T* 

T*=RIGHT*(T*,LEN(T*>-1) 

PR I NT LEFT* ( CD* , 4+R) LEFT* (CR* , 6 > T* 
R=R+1 

IF R<12 THEN 4650 
CLOSE 8:CLOSE 15 

..GOTO 2370 

: 

REM - 

REM-DIRECTORY- 

REM - 


I 

GOSUB 1240 

PRINT LEFT*(CD*,17) 

PRINT "C3SPACE,RVSON,SPACEJDIRECTORYC 
SPACE,RVOFF >" 

PRINT " C3SPACE>@@60"SPC (15)"0050" 

PRINT "C3SPACE,RVSON,SPACE >F1CSPACE,R 
VOFF,SPACE >WEITER C8SPACE,RVSON,SPACE > 
F8CSPACE,RVOFF,SPACE >ENDE" 

PRINT:PRINT "C3SPACE> > C15SPACE X"J 

REM REM BILDFILES HOLEN 
: 

CLOSE 15 

OPEN 15,8,15 
OPEN 1,8,0,“10" 

GOSUB 1620: IF EO0 THEN CLOSE 1: CLOSE 
15:GOTO 4820 

GET#1,A*,A*,A*,A*,A*,A* 

I 

T*="" 

GET#1,A*:IF ST<>0 THEN 5150 
IF A*< >CHR*(34) THEN 5020 
GET#1,A*:IF A*OCHR*(34) THEN T*=TS+A 
*:GOTO 5040 

IF RIGHT*(T*,1)< >CHR*(166) THEN 5120 
1 

PRINT LEFT*(CD*,23)LEFT*(CR*,4)LEFT*( 
T*,15) 

GET A*:IF A*= ,,M THEN 5090 
IF A*=CHR*(140) THEN 5150 

GET#1,AS:IF A*<>“" THEN 5120 
IF ST=0 THEN 5010 


< 210 > 
< 112 > 


<028> 
<019> 
<231 > 
<033> 

< 138 > 

< 1B7> 

< 158> 
<097> 
<112> 
< 210 > 
<198> 
<067> 

< 105> 
<228> 
< 022 > 
<248> 
<120> 
<014> 
<237> 

< 164> 

< 164> 

< 118> 
<064> 

< 163> 
<084> 

< 117> 
<036> 
<255> 

< 116> 

< 134> 

< 163> 
<154> 

< 164> 
<101> 
<223> 

< 121 > 
<204> 
<214> 
<108> 
<110> 
<152> 

<076 > 
<146> 


< 102 > 
<143> 

<040> 
<084> 
<060> 
<188> 
<080> 
<01 6 > 
<018> 
< 110 > 

< 191 > 

< 130> 

< 180 > 
<150> 
<033> 
<215> 
<039> 

<227> 

< 129> 

< 210 > 

< 212 > 

<230> 

<189> 

< 191 > 
<004> 
<171 > 
<07B> 


<057> 


4390 : 

4400 : 

4410 GOSUB 1240 


<048> 

<058> 

<208> 


Listing zu »Etiketten 64« (Fortsetzung) 
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de 

tel 



















Drucker-Anwendung 


5140 

5150 

5160 

5170 

51B0 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 


CLOSE 1:CLOSE 15 
GOTO 2370 


s 

REM - 

R EM -DISKCOMANDS 

REM - 


5280 


5290 

5300 


5310 


5320 


GOSUB 1240 

PRINT LEFT4(CD4-, 17) 

PRINT " (3SPACE>SPC (7) " 

PRINT "(3SPACE,RVSON,SPACE >DISK-COMAN 
DS(SPACE,RVOFF>"SPC <7>"{RVSON,SPACE>F 
8{SPACE,RVOFF,SPACE>ENDE“ 

PRINT "{3SPACE>BSS"SPC(18)"BBB" 

PRINT "{3SPACE,RVSON,SPACE>N(SPACE,RV 
OFF,SPACETNEW (FORMAT.>(4SPACE,RVSON, 
SPACE >S(SPACE,RVOFF,SPACE> SCRATCH" 

PRINT "(3SPACE,RVSON,SPACE >V(SPACE,RV 
OFF,SPACE > VALIDATE(9SPACE,RVSON,SPACE 
>R(SPACE,RVOFF,SPACEIRENAME" 

PRINT "(3SPACE,RVSON,SPACE}I(SPACE,RV 
OFF,SPACE>INITIALIZE" 


<036> 
<238> 
<056> 
<054> 
<076> 
<086> 
<142> 
<064> 
<162> 
<126> 
< 136> 
<030> 
<032> 


<055> 


< 022 > 

<229> 


<229> 


<060> 


5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 


RINT 

PRINT "(3SPACE>>(15SPACE><“; 
PRINT “(16LEFT>"LEFT4(T4,15); 


M=14:GOSUB 1820 
IF EN=1 THEN 2370 
IF DE—1 THEN 5860 


L=1908:GOSUB 1470 
IF LEFT4(T4,1)=“ " THEN 2370 
D4="S0:"+LEFT4(T4,15)+"T" 
GOTO 6450 


VALI DATE/ INITI ALIZE 


REM 
: 

GOSUB 1240 

PRINT LEFT4(CD*,17) 

PRINT "(3SPACE1BBB" 

PRINT "(3SPACE,RVSON,SPACEVA4"(SPACE 
,RVOFF,SPACE>VAL1DATE / INITIALIZE":P 
RINT 


5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 


CLOSE 15 


GET A4:IF A4="“ THEN 5360 
: 

IF A4=CHR*(140) THEN 2370 
IF A4="N" THEN 5480 
IF A4—"S" THEN 5850 
IF A4="V" OR AS=" I" THEN 6040 
IF A4="R" THEN 6140 


GOTO 5360 


REM 


NEW (FORMATIEREN) 


5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 


GOSUB 1240 

PRINT LEFT4(CD4,17) 

PRINT "(3SPACEJBBB" 

PRINT “(3SPACE,RVSON,SPACE>N(SPACE,RV 
OFF,SPACE >NEW (FORMATIEREN >-:PRINT 
PRINT "(3SPACE>>DISKETTENNAME":PRINT 
PRINT “(3SPACE»{16SPACE><“; 

PRINT “(16LEFT>"; 


<025> 
<226> 
<09B> 
<246> 
< 012 > 
< 010 > 
<252> 
<038> 
< 162> 
<193> 
<242> 
<072> 
<062> 
<092> 
<056> 
< 112 > 
<006> 
<008> 
<053> 


6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
(jOTLlf 62 «v 
6290 


M=15:GOSUB 1820 
IF EN=1 THEN 2370 
IF DE—1 THEN 5490 


L=1908:GOSUB 1470 
IF LEFT4(T4,1)=" » 
D4=LEFT4(T4,16) 


THEN 2370 


PRINT LEFT4(CD4 t 2i)LEFT4(CR4,25>", ID 


<068> 

< 120 > 

< 202 > 

<196> 

<192> 

< 163> 
<146> 
<017> 
<232> 
< 101 > 
<227> 
<075> 

< 01 6 > 


5650 PRINT: PRINT SPC(26> "X2SPACEX" 

5660 R=19:S=22:EN=0:DE=0: M=24 

5670 GOSUB 1830 

5680 IF EN=1 THEN 2370 

5690 IF DE=1 THEN 5640 

5700 : 

5710 L=1931iGOSUB 1470 

5720 IF LEFT4(T4,1)=" " THEN 2370 

5730 I4=LEFT4(T4,2> 

5740 : 

5750 PRINT LEFT4(CD4,20> 


<014> 
<241 > 
<035> 
<006> 
< 002 > 

< 113> 
<088> 
<017> 
<083> 
<217> 

< 128 > 


5760 


5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 


PRINT "(3SPACE,RVSON,SPACE>NEUE DISKE 
TTE EINGELEGT (J/N)(SPACE,RVSON>" 


<226> 


GET A4:IF A4="" THEN 5780 
IF A*0”J” THEN 2370 


5890 


D4="N0:"+D4+",“+I4:GOTO 6450 
: 

REM SCRATCHEN 

: 

GOSUB 1240 

PRINT LEFT4(CD4,17) 

PRINT "(3SPACEJBBB" 

PRINT “(3SPACE,RVSON,SPACE >S(SPACE,RV 

OFF,SPACE JSCRATCH":PRINT 

PRINT “(3SPACE}>DATEINAME EINGEBEN“:P 


< 119> 
<158> 
<182> 
<025> 
<188> 

< 118> 
<208> 
<028> 
<228> 
< 122 > 
< 124> 
<169> 


6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 


D4=A4+"0" 
GOTO 6450 


REM 


RENAME 


6180 


GOSUB 1240 

PRINT LEFT4(CD4,17) 

PRINT "(3SPACEJBBB" 

PRINT "(3SPACE,RVSON,SPACE)R(SPACE,RV 

OFF,SPACE JRENAME“:PRINT 

PRINT ”(3SPACE>>ALTER DATEINAME":PRIN 

T 

PRINT “ (3SPACETX15SPACEX"; 

PRINT “(16LEFT1"LEFT4(T4,15); 


M=14:GOSUB 1820 
IF EN=1 THEN 2370 
IF DE=1 THEN 6150 
: 

L=1908:GOSUB 1470 
DA4=LEFT* <T4,15)+"+" 


6300 

6310 


6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 


PRINT LEFT4(CD4,19) 

PRINT "(4SPACEIBB0BB" 

PRINT “(3SPACE> >(RVSON >NEUER(RVOFF,SP 

ACE > DATE INAME"sPRINT 

PRINT “ (3SPACEJ X15SPACEX “ ; 

PRINT "<16LEFT>"; 

M=14:GOSUB 1820 
IF EN=1 THEN 2370 
IF DE=1 THEN 6290 


L=1908:GOSUB 1470 
D*=LEFT4(T4,15)+"T" 
a 

D4="R0:"+D4+"="+DA4 


REM 


DISKBEFEHL AUSFUEHREN 


6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 


OPEN 15,8,15 

GOSUB 1620: IF EO0 THEN CLOSE 15:G0T0 
2370 

PRINT#15,D* 

GOSUB 1620:IF E<>0 THEN CLOSE 15 


T4="":GOTO 2370 


REM - 

REM -PROG BEENDEN 

REM- 


6620 


GOSUB 1240 

PRINT LEFT4(CD4,17) 

PRINT "C3SPACEJ03BBBB" 

PR1NT “(3SPACE,RVSON,SPACE >ENDE(SPACE 
,RVOFF>":PRINT 

PRINT “(3SPACEJSIND SIE SICHER (J/N) 


<124> 


Listing zu »Etiketten 64«. Beachten Sie bitte 
den Checksummer 64. (Fortsetzung) 
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663(9 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 


BET A*sIF A*="" THEN 6630 
IF A*<>"J" THEN 2370 
PRINT “CCLRJOK - BIS BALD!“:END 
1 

REM- 

REM DRUCKEN - 

REM - 

REM - 1526 MIT NEUEM ROM - 
REM - IM 1525 MODUS - 

REM 

REM - CHR*(14)=BREIT EIN - 
REM - CHR*(15)=BREIT AUS - 

REM - 

: 

GOSUB 1240 

PRINT LEFT*(CD*,17> 

PRINT "C3SPACE,RVSON,SPACE»DRUCKEN<SP 
ACE,RVOFF >" 

PRINTsPRINT "C3SPACE»DRUCKER EINGESCH 
ALTET (J/N) : " 

BET A*:IF A*= M " THEN 6840 
IF A#<>“J“ THEN GOTO 2370 

3 

REM DRUCKKANAL OEFFNEN 

3 

OPEN 3,4 
: 

REM ZEILENABSTAND = 0 

OPEN 6,4,6!PRINT#6,CHR*<20>:CLOSE 6 
1 

REM ZEILEN HOLEN 

3 

FOR L=1190 TO 1590 STEP 40 
GOSUB 1470 

REM DRUCKSTRING ERSTELLEN 

3 

FOR J=1 TO LEN(T*) 

AS=M1D*<T*,J,1> 

IF AS< THEN PRINT#3, A*; : GOTO 7080 

PRINT#3,CHR*(14>; 
J=J+lsAS=MID*(T*,J,l) 
PRINT#3,A*;CHR*C15> j 
NEXT J 

REM STRING DRUCKEN 

PRINTH3 
NEXT L 

t 

REM ZEILENVORSCHUB 

I 

FOR 1 = 1 TO 5sPRINT#3:NEXT I 
s REM DRUCKKANAL SCHLIESSEN 
CLOSE 3 

3 

T*=“":BOTO 2370 


<107> 
<113> 
<054> 
<032> 
<042> 
< 112 > 
<074> 
<132> 
<150> 
<225> 
<247> 
<223> 
<142> 

< 192» 
<142> 
<152> 
<046> 
<048> 
<208> 

<003> 

<236> 

<065> 

<073> 

<232> 

<072> 

<252> 

< 125> 
<016> 
<166> 
<038> 
<126> 
<05B> 
<056> 
<07B> 
<068» 
< 110 > 
<108> 

< 119> 

< 128> 
<254> 
< 200 > 



<109> 
< 220 > 
<058> 
<208> 
<169> 
<228> 
<001 > 
<124> 
< 002 > 
< 202 > 
< 022 > 
<247> 
<044> 
<230> 
<144> 
<125> 
<084> 
< 113> 


© 64'ec 

Listing zu »Etiketten 64«. Beachten Sie bitte 
den Checksummer 64. (Schluß) 


Die 

entscheidende 

Verbesserung 

Erweitern Sie die Eyssele-Schnitt- 
stelle um eine Hardcopy-Funktion. 
Sie können dann mit einem einfachen 
Befehl genau das drucken, was am 
Bildschirm zu sehen ist. 


Diese Erweiterung verbessert die Eyssele-Schnittstelle 
(auf Seite 22) gewaltig. Denn es wird nicht nur eine Text-Hard¬ 
copy implementiert, sondern die Eyssele-Schnittstelle kann 
damit auch einfach auf andere Drucker als den Epson RX/FX- 
Typen angepaßt werden. Die abgedruckte Version läuft mit 
einem CP-80 über den Centronics-Eingang. Zur Anpassung 
auf die Epson-Drucker sind folgende Änderungen nötig: 

60 DZ=5 

61 D(1) = 27:D(2)=42:D(3) = 4:D(4) = 8:D(5) = 0 
Zum Anschluß an den C 64 müssen Sie sich nur ein Ver¬ 
bindungskabel vom User-Port zum Centronics-Eingang des 
Druckers herstellen (lassen). Welche Pins Sie mit welchen 
verbinden müssen, lesen Sie bitte im vorhergehenden 
Artikel. 

So ist die Erweiterung zu verwenden 

Ttren Sie die Eyssele-Schnittstelle (»Die billigste Centro- 
nics-öchnittstelle...«) mit dem MSE ab und speichern Sie das 
Maschinenprogramm auf Kassette oder Diskette. Dann laden 
Sie es mit LOAD "CENTRONICS",8,1 und geben NEW ein. 
damit die Basis-Vektoren wieder ordentlich gesetzt werden. 
Dann können Sie diese Erweiterung mit dem Checksummer 
aus dieser Ausgabe in den C 64 eingeben. Bevor Sie aller¬ 
dings RUN eintippen, sollten Sie das Basic-Programm sicher¬ 
heitshalber speichern. 

Während des Programmlaufs werden Sie gefragt, ob eine 
lauffähige Version der erweiterten Schnittstelle als Maschi¬ 
nenprogramm auf Diskette oder Kassette gespeichert wer¬ 
den soll. Reagieren Sie bitte mit D (Diskette), K (Kassette) 
oder N (nicht speichern). Das erzeugte Programm bekommt 
den Namen »Druckertreiber«. Es muß mit LOAD * DRUCKER¬ 
TREIBER",8,1 oder 1,1 geladen werden. Danach ist wieder 
das gewohnte NEW erforderlich, die Schnittstelle wird mit 
SYS 52200 aktiviert. 

Bevor Sie den Computer und Drucker einschalten, sollten 
Sie erst das Kabel anschließen. Denn beim Aufstecken des 



User-Port-Steckers kann man leicht einen Kurzschluß erzeu¬ 
gen. Im Glücksfall brennt dann die Sicherung im C 64 durch. 
Meist verabschiedet sich aber eine der beiden CI A-Bausteine 
und eine nicht billige Reparatur ist die Folge. 

Es gelten die Geräte- und Sekundäradressen der Eyssele- 
Schnittstelle. Lesen Sie diese bitte dort in Tabelle 1 nach. 
Originalgetreue Kopie des Bildschirmes 
Nun zur Praxis. Durch Aufruf des Hardcopy-Programmteils 
wird eine absolut originalgetreue Kopie des normalen Text- 
Bildschirms gedruckt. Auch reverse Zeichen werden berück¬ 
sichtigt. Sie können den Abstand zwischen den Druckzeilen 
wählen. Ohne Abstand, wie am Bildschirm (ideal für Block¬ 
grafiken), oder mit Abstand wie in einem Listing. Die Befehle 
für die Hardcopy: 

SYS 52270,page:druckt mit 
SYS 52408,page:ohne Abstand 
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Drucker-Anwendung 


Bei Page müssen Sie angeben, welche Speicherseite 
gedruckt werden soll. Der Bildschirmspeicher muß sich näm¬ 
lich nicht immer zwischen den Adressen 1024 und 2023 
(Page=4) befinden. Durch Aufruf der Hardcopy wird die 
Schnittstelle gleichzeitig auch initialisiert. Sie können sich 
dann also SYS 52200 (auch SYS 51456 ist möglich) sparen. 

Reverse Zeichen sind kein Problem 

Es werden auch reverse Grafikzeichen im Groß-/Klein- 
schriftmodus gedruckt. Das sind alle Grafikzeichen, die über 
die CBM-Taste erreichbar sind. 

Zeichen mit einem Code von 91 bis 95 werden im Grafik¬ 
modus gedruckt, wie andere Sonderzeichen auch. Der 
Grund dafür ist, daß die C 64-Zeichen in diesem Bereich 
meist nicht mit den Druckerzeichen in diesem Bereich über¬ 
einstimmen. (Dipl.-Ing. Wilhelm Meierhofer/hm) 


ETIKETTEN 64 


< W)1985 BV G7 



Kimm 



BiÜW 


'S 
ENDE 


Eine Hardcopy des Textbildschirms mit Grafikzeichen. 
Es muß nicht immer HiRes sein. Sie sehen den 
Bildschirmaufbau des Etikettendruck-Programmes. 

10 REM ERWEITERUNG ZUM TREIBERPROBRAMM FUE 

R CENTRONICS-DRUCKER VON H EVSSELE AUS <054> 
12 REM 64—ER NR. 7/84 <198> 

14 REM <076> 

16 REM VON W. MEIERHOFER <220> 

18 REM <080> 

20 REM ZUSAETZLICHE FAEHIGKEITEN: <249> 

22 REM - HARCOPY MIT ZEILENABSTAND <098> 

24 REM - HARCOPY BILDSCHIRM ABSOLUT <122> 

26 REM - ERKENNUNG UND AUSDRUCK VON REVE 

RSEN SONDERZEICHEN <134> 

30 REM NAEHERES ENTNEHMEN SIE BITTE DER BE 

IBEFUEGTEN ANLEITUNG <142> 

32 REM <031> 

34 REM <096> 

40 PRINT"tCLRJDAS MASCHINENPROGRAMM VON H. 

EYSSELE" <204> 

42 PRINT"MUSS SICH BEREITS IM SPEICHER BEF 

INDEN !“ <249> 

44 PRINT"HABEN SIE DIE DRUCKERSTEUERCODES 

IN“ <056> 

46 PR INT "ZEILE 60 -65 AN IHREN DRUCKER ANG 

EPASST?" <247> 

50 PRINT"WEITER MIT IRGENDEINER TASTE !" <007> 

52 IF PEEK(203> =64 THEN 52 <152> 

54 PRINT:PRINT"BITTE WARTEN":PRINT:PRINT <122> 

55 REM <1I7> 

56 REM <118> 

50 REM ***FOLGENDE PARAMETER SIND AUF DEN 

DRUCKER CP80 ABGESTIMMT**» <1B6> 

59 REM BITTE AENDERN SIE SIE FUER IHREN DR 

UCKER <034> 

60 DZ=4:REM ANZAHL NOTWENDIGER CODES (MAX 

9), UM 8 BYTES GRAFIK AUSZUGEBEN <121> 

61 D(1)=27:D<21=75:D(31=8:D(4> =0:REM BITTE 

AENDERN ODER ERGAENZEN <185> 

62 NZ=3:REM ANZAHL NOTWENDIGER CODES (MAX 

8 ), FUER NULL-ZEILENABSTAND <101> 

63 N(1)=27:N(2)=65:N(3)=7:REM BITTE AENDER 

N ODER ERGAENZEN <216> 

64 GZ=2:REM ANZAHL NOTWENDIGER CODES (MAX 

5>, FUER GRUNDZEILENABSTAND <080> 

65 G(1)=27:G(2)=50:REM BITTE AENDERN ODER 

ERGAENZEN <195> 


66 REM <128> 

67 REM <129> 

68 REM ***EINPOKEN VON DATAS*** <081> 

70 FOR 1=52200 TO 52267:READ X:POKE I,X:FE 

=FE+X:NEXT <077> 

71 IF FE08381 THEN PRINT "FEHLER IM ERSTEN 

DATENBLOCK":END <207> 

72 FOR 1=52270 TO 52426:READ XiPOKE I,X:FA 

=FA+X:NEXT <133> 

73 IF FA<>22642 THEN PRINT"FEHLER IM ZWEIT 

EN DATENBLOCK“:END <102> 

75 REM <137> 

76 REM <138> 

77 REM ***DRUCKERSPEZIFISCHE PARAMETERN*** <245> 

80 POKE 51992,DZ:FOR 1=1 TO DZ:POKE 52177+ 

1,D(I):NEXT <076> 

82 POKE 52421,NZ:F0R 1=1 TO NZ:P0KE 52191+ 

I,N(I):NEXT <217> 

84 POKE 52404,GZ:FOR 1=1 TO GZ:POKE 52186+ 

I,G(I):NEXT <233> 

86 REM <148> 

87 REM <149> 

88 REM ***ANSCHLIESSEN DER ERWEITERUNG*** <255> 

90 POKE 51758,21:POKE 51760,91:ROKE 51770, 

9:POKE 51772,219:POKE 51774,5 <054> 

91 POKE 51780,76:POKE 51781,235:POKE 51782 

,203:POKE 51783,234:POKE 51785,91 <177> 

92 POKE 51922,76:POKE 51923,25:POKE 51924, 

204 <184> 

96 REM <158> 

97 REM <159> 

98 REM- 

- <183> 

99 REM 1.DATENBLOCK <136> 

100 DATA 76,0,201,164,199,208,19,201,18,24 

0,10,201,255,240,3,76,72,202,76 <195> 

101 DATA 96,202,160,1,132,199,96,201,146,2 

40,7,201,13,240,8,76,79,202,160 <230> 

102 DATA 0,132,199,96,160,0,132,199,76,72, 

202,74,74,74,72,165,199,208,4,104 <0B8> 

103 DATA 76,213,202,104,24,105,4,76,213,20 

2 <157> 

199 REM 2.DATENBLOCK <244> 

20« i ATA 32,0,201,32,253,174,32,158,183,16 

9,255,133,249,202,138,133,250,232 <041> 

201 DATA 232,232,232,138,133,248,162,0,134 

,247,160,0,230,249,208,2,230,250 <205> 

202 DATA 230,247,177,249,201,128,144,21,17 

2,24,208,192,21,208,4,160,208,208 <216> 

203 DATA 2,160,216,132,6,32,196,202,76,143 

,204,201,32,176,5,9,64,76,127,204 <236> 

204 DATA 201,64,144,3,24,105,128,172,24,20 

8,192,21,208,6,32,68,202,76,143 <191> 

205 DATA 204,32,43,202,166,247,224,40,208, 

181,162,0,134,247,169,13,32,64,201 <121> 

206 DATA 165,250,197,248,208,166,165,249,2 

01,231,208,160,162,0,189,219,203 <249> 

207 DATA 32,64,201,232,224,2,208,245,96,32 

,0,201,162,0,189,224,203,32,64,201 <047> 

208 DATA 232,224,3,208,245,76,49,204 <227> 

210 REM <016> 

220 REM <026> 

230 REM <036> 

300 PR INT “PROGRAMM ALS MASCHINEN-PROGRAMM 

AUF<5SPACE>DISKETTE/CASSETTE LEGEN D/C 
/N?" <179> 

310 GET A*:IF A*=""THEN 310 <057> 

320 IF A*="D"THEN SYS(578121"DRUCKTREIBER" 

,8:GOTO 360 <214> 

330 IF A*="C"THEN SYS(57812)"DRUCKTREIBER" 

,1:GOTO 360 <081> 

340 IF A*="N"THEN 400 <154> 

350 GOTO 310 <056> 

360 POKE 193,0:POKE 194,201:POKE 174,203:P 

OKE 175,204:SYS 62957 <187> 

370 PRINT:PRINT"PROGRAMM KANN JETZT MIT" <229> 

380 PRINT"LOAD'DRUCKTREIBER',B,1 (BZW.<2SP 

ACE >,1,1)" <243> 

390 PRINT"DIREKT GELADEN WERDEN !<2SPACE>< 

ABER DABEI" <135> 

392 PRINT" NEW + INITIALISIERUNG NICHT VE 

RGESSEN)“ <007> 

400 SYS 52200:END <125> 

© 64'er 

Listing zur Eyssele-Erweiterung. Beachten Sie bitte 
die Eingabehinweise. Zu diesem Programm benötigen 
Sie die schon beschriebene Eyssele-Schnittstelle. 


























Drucker-Anwendung 


Die billigste 
Centronics- 
Schnittstelle 
für den C 64 

Diese Schnittstelle übertrifft mit ihren 
Leistungsmerkmalen viele käufliche 
Hardware-Schnittstellen um ein Viel¬ 
faches. Nicht aber im Preis: Nur etwa 
15 Mark kostet diese »Selbstbau«- 
Centronics-Schnittstelle. 

Leser des 64'er Magazins, die schon »seit Anfang dabei 
sind«, erkennen diese Schnittstelle bestimmt wieder. In Aus¬ 
gabe 7/85 wurde sie unter dem Namen Eyssele-Schnittstelle 
vorgestellt. 

Wie im Fernsehen! Jetzt fangen die auch schon mit Wieder¬ 
holungen an! Diese Vermutung trifft nur in diesem speziellen 
Fall zu. Wir haben guten Grund, das Programm zu der 
Eyssele-Schnittstelle nochmals abzudrucken. Denn viele 
unserer Lesereinsendungen—auch einige Listings in diesem 
Sonderheft — beziehen sich auf diese Software-Schnitt¬ 
stelle. Die alten Hasen unter Ihnen mögen uns verzeihen. 
Aber seit einem Jahr wuchs unsere Leserzahl so gewaltig, 
daß ein großer Teil die Eyssele-Schnittstelle einfach noch 
nicht kennt. 

Es handelt sich hierbei um ein Maschinensprache¬ 
programm mit 726 Byte Länge, das den Adreßbereich 
C900-CBD1 (dezimal: 51456 bis 52182) belegt (Listing 1). 
Damit kann zum Beispiel das DOS 5.1 auf der Demodiskette 
ohne Probleme zusätzlich geladen werden. 

Das Programm ist ohne Einschränkung für alle Epson- kom¬ 
patiblen Drucker anwendbar, die über einen Bitmustermodus 
verfügen. Dieser Modus wird für die Ausgabe der 
Commodore-eigenen Grafikzeichen benötigt. Das Programm 
besteht aus mehreren Programmteilen, von denen die mei¬ 
sten Erweiterungen bestehender Ein-/Ausgaberoutinen des 
Betriebssystems sind und bei der Initialisierung in diese ein¬ 
gebunden werden. Dadurch können schon bestehende 
Basic-Befehle wie OPEN und PRINT # zum Drucken benutzt, 
und Programme müssen nicht umgeschrieben werden. Zur 
Ansteuerung verschiedener Druckmodi wurden jedoch 
zusätzliche Gerätenummern definiert, deren Bedeutungen in 
Tabelle 1 erklärt sind. Gerätenummer 16 realisiert einen soge¬ 
nannten Direktmodus, mit dem die internen Commodore- 
Zeichencodes ohne Wandlung an den Drucker gelangen. Der 


Direktmodus ist zur Ausgabe von Steuerzeichen oder bei der 
Verwendung des Druckers als Plotter zur Einzelnadelsteue¬ 
rung beziehungsweise zur Ausgabe von Bitmustern geeig¬ 
net. Der Textmodus (Groß- und Kleinschreibung) ist unter 
Gerätenummer 18 und, weil er wohl am häufigsten bei bereits 
bestehenden Programmen benutzt wird, unter Gerätenum¬ 
mer 4 ansprechbar. Die Gerätenummer 19 realisiert den 
Großschrift/Grafik-Modus, wie er beim C 64 gleich nach dem 
Einschalten voreingestellt ist. Der wichtige Modus zum Listen 
von Programmen wurde mit Gerätenummer 17 realisiert. Es 
läßt sich über die Sekundäradresse, wie in den Musterlistings 
(Bild 1 bis 3) gezeigt, noch zwischen vier Fällen unterschei¬ 
den. Einmal kann ausgewählt werden, ob das Listing, wie vom 
Bildschirm her gewohnt, mit Großbuchstaben und Grafikzei¬ 
chen oder im Textmodus mit großen und kleinen Buchstaben 
gedruckt wird. Zum anderen kann man auswählen, ob die 
Steuerzeichen wie bei der Bildschirmausgabe als inverse Zei¬ 
chen oder durch Abkürzungen wie <CRD> (Cursor down) 
im Klartext gedruckt werden. Durch all diese Möglichkeiten 
kann der Anwender zum einen auf seinem Drucker Ausgaben 
erzeugen, wie man sie von Commodore-Druckern her 
gewohnt ist, zum anderen auch alle Möglichkeiten seines 
Druckers voll nutzen. 


Commodore-eigene Grafikzeichen 

Die Ausgabe von Grafikzeichen erfolgt in der Routine OUT¬ 
GEN ab Adresse SCAC4. Zu diesem Zweck wird der Zei¬ 
chengenerator des C 64 ausgelesen. Die Zeichen, die aus 
einer 8x8- Punktmatrix bestehen, sind dort in je 8 Byte abge¬ 
legt. Jedes Byte repräsentiert das Punktmuster einer Zeile 
der Matrix. Ein Matrixdrucker druckt die Zeichen, indem er 
sie ebenso als Muster von matrixartig angeordneten Punkten 
zv< Sspier bringt. Jedoch gibt er die Punktmatrix nicht wie der 
Bildschirm zeilenweise, sondern spaltenweise aus. Deshalb 
wird in OUTGEN die im Zeichengenerator in 8 Zeilenbyte 
gespeicherte Zeichenmatrix zunächst in 8 Spaltenbyte 
umorganisiert. Nach Umschalten des Druckers in den soge¬ 
nannten Bitmustermodus, in dem er jedes ankommende 
Datenbyte nicht mehr als ASCII-Zeichen, sondern als Muster¬ 
byte für eine Matrixspalte interpretiert, gibt OUTGEN die acht 
geänderten Zeichenbyte an den Drucker aus. Dieser fügt sie 
wieder zu einem 8x8- Punktmatrixzeichen zusammen. So ist 
es möglich, auf einem Matrixdrucker exakte Kopien der C 
64-Bildschirmzeichen herzustellen, obwohl dieser nicht 
über den entsprechenden Zeichensatz verfügt. 

So benutzen Sie das Programm 

Das Listing sollten Sie mit dem MSE eingeben und auf Dis¬ 
kette oder Kassette speichern, bevor Sie es starten. Bevor 
Sie es allerdings laden, sollten Sie sich das Verbindungska¬ 
bel User-Port-Centronics-Buchse zusammenlöten. Dazu ist 
in Tabelle 2 ein Verbindungsplan angegeben. Das Kabel 
sollte für eine störungsfreie Funktion nicht länger als ein 
Meter lang sein und aus einem abgeschirmten, mehradrigen 
Steuerkabel bestehen, das man in (fast) jedem Elektronik- 


USER 

PORT - CENTRONICS 

A 

GND 

16 

B 

FLAG — BUSY 

11 

C 

DO 

2 

D 

Dl 

3 

E 

D2 

4 

F 

D3 

S 

H 

D4 

6 

J 

DS 

7 

K 

D6 

8 

L 

D7 

9 

M 

PA2- STROBE 

1 


GERÄTENUMMER 16 
GERÄTENUMMER 18,4 
GERÄTENUMMER 19 

GERÄTENUMMER 17 

SEK-ADR. 

MODUS 

= DIREKTMODUS 
= TEXTMODUS 

= GRAFIKMODUS 

= LIST-MODUS 

STEUERZEICHEN 

0 

NORMAL 

NORMAL 

1 

KLEIN 

NORMAL 

2 

NORMAL 

ERKLÄRT 

3 

KLEIN 

ERKLÄRT 


Tabelle 2. Der Verkabelungsplan 


Tabelle 1. Die Bedeutung der Gerätenummern 
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Giet 









Drucker-Anwendung 


Bastelgeschäft findet. Dort sind auch meist der Centronics- 
Stecker und der Stecker für den User-Port erhältlich. 

Initialisiert wird die geladene Treiberroutine mit SYS 
12*4096+9*256 beziehungsweise SYS 51456. 

Hierbei wird die Routine in das Betriebssystem eingebun¬ 
den. Jedoch Vorsicht: Nach einem Break, zum Beispiel durch 
die Betätigung der Tasten RUN/STOP und RESTORE ausge¬ 
löst, muß die Routine erneut initialisiert werden, da die I/O- 
Vektoren vom Betriebssystem zurückgesetzt wurden. 

Die einzelnen Druckmodi spricht man mit den üblichen Basic- 
befehlen an. Geöffnet wird der Ausgabekanal mit: 

OPEN log. Dateinummer, Geräteadr. [.Sekundäradr.] 

Die eckigen Klammern kennzeichnen optionale Angaben. 
So kann dann auf den geöffneten Kanal mit PRINT # log. 
Dateinummer ausgegeben werden. Ein Programmlisting (Bild 
2) wird zum Beispiel erzeugt mit den Befehlen 

OPEN 17,17 [,Sekundäradr.]:CMD17: 

LIST 

PRINT #17:CLOSE17 

Der PRINT-Befehl vor dem CLOSE ist notwendig, damit der 
CMD-Modus aufgehoben wird. 

Umstellen auf beliebige Drucker mit 
Centronics-Schnittstelle 


Das Programm wurde für einen Epson-Drucker geschrie¬ 
ben. Unverändert ist es für jeden anderen Drucker verwend¬ 
bar, sofern auf die Ausgabe von Commodore-eigenen Grafik¬ 
zeichen verzichtet wird. Für diese Funktion muß der Drucker 
vorübergehend in den Bitmustermodus zurückgeschaltet 
werden, was während einer normalen Textausgabe möglich 
sein muß. Diese Umschaltung erfolgt im Programm in der 
Schleife ab Adresse SCB10. Die Anzahl der auszugebenden 
Steuerzeichen ist unter Adresse SCB18 gespeichert und die 
Steuerzeichen selbst stehen ab Adresse SCBD2 am Ende 
des Programms. Für einen Epson-Drucker wird die Folge 

ESC*480 

ausgegeben, wobei mit 4 der Bitmustermodus »CRT- 
Grafik« ausgewählt wird, 8 das niederwertige Byte und 0 das 
höherwertige Byte der Anzahl auszugebender Punktmatrix¬ 
spalten darstellt. Der Epson-Drucker kehrt nach der Ausgabe 
der spezifizierten Anzahl Musterbytes wieder in den Textmo¬ 
dus zurück. (H. Eyssele/hm) 


Programm 

: Centronics 

c900 

cbd7 

c900 

a9 

5a 

a0 

c9 

8d 

la 

03 

8c 

06 

c908 

lb 

03 

a9 

91 

a0 

c9 

8d 

lc 

08 
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03 

8c 

ld 

03 

a9 

ad 

30 

c9 

lf 

c918 

8d 

le 

03 

8c 

lf 

03 

a9 

c8 

49 
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a0 

c9 

8d 

20 

03 

8c 

21 

03 

2b 

c928 

a9 

e3 

30 

c9 

8d 

26 

03 

8c 

53 
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27 

03 

a9 

ff 

8d 

03 

dd 

ad 

07 

c938 

02 

dd 

09 

04 

8d 

02 

dd 

60 

0d 
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48 

a9 

10 
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0d 

dd 

f0 

fb 

62 

c948 

68 

8d 

01 

dd 

ad 

00 

dd 

09 

d7 
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8d 

00 

dd 

29 

fb 

8d 

00 

7f 
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dd 

60 

a6 

b8 
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05 

20 

0f 

fc 
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d0 

03 

4c 
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a6 

98 

79 
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60 

0a 
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03 

4c 

fb 

f 6 

e6 

20 
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b8 

9d 

59 

02 

a5 

b9 

6c 
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09 

60 

9d 

6d 

02 

a5 

ba 

9d 

3a 
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63 

02 

c9 

04 
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04 

c9 

10 

4e 
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90 

02 

18 

60 

c9 

00 

4c 

77 

e8 
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20 

14 

f 3 

f 0 

02 

18 

60 

57 
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20 

lf 

f 3 

Ba 

48 

a5 

ba 

c9 
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c9a0 : 10 

b0 

07 

c9 

04 

f0 

03 

4c 

70 

c9aB 

9d 

f 2 

4c 

fl 

f 2 

20 

0f 

f 3 

64 

c9b0 : f0 

03 

4c 

01 

f 7 

20 

lf 
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3a 
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a5 

ba 

c9 

04 
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04 

c9 

10 

24 
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03 

4c 

0a 
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4c 

19 
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52 
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20 

0f 
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f0 

03 

4c 

01 
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ba 
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f0 

ld 
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4c 
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20 
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c9 
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Listing 1. Der Softwareteil der Eyssele-Schnittstelle. 
Beachten Sie bitte die Eingabehinweise zum MSE. 
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Listing 1. Der Softwareteil der Eyssele-Schnittstelle. 
Beachten Sie bitte die Eingabehinweise zum MSE. 


10 REM 5 X CURSOR DOWN 

20 PRINT "<CRD><CRD><CRD><CRD><CRD>“ 

30 REM 5 X CURSOR LEFT 

40 PRINT "<CRL><CRL><CRL><CRL><CRL>" 

50 REM BEIDES GEMISCHT 

60 PRINT "<CRD><CRL><CRD><CRL><CRD>" 

70 REM ROT SCHREIBEN 
80 PRINT "<RED>" 

90 PRINT SPCC10)"EYSSELE SCHNITTSTELLE" 
100 REM SCHWARZ SCHREIBEN 
110 PRINT "<BLK>" 

120 PRINT"GERAET 16 = DIREKTMODUS" 

130 PRINT"GERAET 1B,4 = TEXT" 


140 PRINT"GERAET 19 
150 PRINT“GERAE T 17 
160 PRINT“SEK—ADR. 0 
170 PRINT“SEK—ADR. 1 

1B0 REM MIT ERKLAERTEN STEUERZEICHEN: 
190 PRINT"SEK-ADR. 2 = GROSS/GRAF IK "er 

200 PRINT"SEK—ADR. 3 = GROSS/KLEIN" 


= GRAFIK" 

= LIST" 

= GROSS/GRAFIK" 
= GROSS/KLEIN" 


210 REM "r 
220 REM "I 
230 REM "| 
240 REM " v- 
READY. 


AUCH GRAFIKZEICHEN 

WERDEN GEDRUCKT! 


I" 
I" 
_> •• 


Bild 1. Steuerzeichen werden von dieser Schnittstelle 
genauso bewältigt wie Grafikzeichen 


10 REM 5 X CURSOR DOWN 
20 PRINT " L'L'L‘L'1'1 " 

30 REM 5 X CURSOR LEFT 
40 PRINT "llllir 
50 REM BEIDES GEMISCHT 
60 PRINT "lÜiailJ" 

70 REM ROT SCHREIBEN 
80 PRINT "Q" 

90 PRINT SPC(10)"EYSSELE SCHNITTSTELLE" 
100 REM SCHWARZ SCHREIBEN 
110 PRINT 

120 PRINT"GERAET 16 = DIREKTMODUS" 

130 PRINT "GERAET 18,4 = TEXT" 

140 PRINT"GERAET 19 = GRAFIK" 

150 PRINT"GERAET 17 = LIST" 

160 PRINT"SEK—ADR. 0 = GROSS/GRAFIK" 

170 PRINT"SEK-ADR. 1 = GROSS/KLEIN“ 

180 REM MIT ERKLAERTEN STEUERZEICHEN: 
190 PRINT"SEK—ADR. 2 = GROSS/GRAFIK" 

200 PRINT"SEK-ADR. 3 = GROSS/KLEIN" 

210 REM " ,-s " 

220 REM "| AUCH GRAFIKZEICHEN |" 

230 REM "I WERDEN GEDRUCKT! I" 

240 REM " '- t " 

READY. 


Dru^K mit 

□PEN 17,17,0: 


100 

POKE 53280,6: POKE 53281,6 


110 

PRINT 

chrj <i4) "uaausiüflü" ; 


120 

PRINT 

CHR*(14)"1UU1U1"; 


130 

PRINT 

CHRf(14) 

140 

PRINT 



150 

PRINT 


*" 

160 

PRINT 



170 

PRINT 

—64 |REIBERPROGRAMM 

r« #" 

180 

PRINT 



190 

PRINT 



200 

PRINT 



210 

PRINT 

"* C FUER DEN 4NSCHLUSS 


220 

PRINT 



230 

PRINT 

"* CVON -~/\ -RÜCKER* *" 

240 

PRINT 



250 

PRINT 

"» U AM r* - - - TORT 

)”• #" 

260 

PRINT 



270 

PRINT 

»* 


2B0 

PRINT 

"IHHIMI"; 


290 

PRINT 

"*****^^**«•****#***»»******»[; ,l 


Bild 3. Musterlisting, erstellt auf einem Epson FX-80 



m Bild 2. Steuerzeichen können auch in Klartext 
übersetzt werden 


tNtna.de 
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Basic-Erweiterung 


Epson- 

Support 

Epson-Support läßt die Herzen eines 
jeden FX/RX-80-Besitzers höher schla¬ 
gen. Mit einfachen Befehlen und kur¬ 
zen Programmen können Sie jetzt 
komplizierte Grafiken auf Ihrem 
Drucker erstellen. Und das mit einer 
Auflösung, die fast siebenmal so hoch 
ist wie die des C 64, nämlich bis zu 
800 mal 552 Punkten. 



Bild 1. Listing 1 liefert dieses Bild (hier verkleinert) 


Epson-Support ist eine Basic-Erweiterung und belegt den 
Speicherbereich ab $0000 (49152). Der Programmstart 
erfolgt durch SYS 49152; jetzt stehen einige leistungsfähige 
Befehle zur Verfügung, um Grafiken zu erstellen und auf den 
Epson FX/RX-Druckern auszugeben. Die Grafiken liegen im 
Speicher des Commodore 64 ab $2000 (8192). Wegen des 
enormen Speicherplatzbedarfs wird auch das RAM unter 
dem Basic, dem Betriebssystem und unter dem Zeichen- 
ROM verwendet. Die Bitmap wird über Koordinaten adres¬ 
siert, dabei liegt der Punkt (0,0) in der linken Ecke oben wie 
bei den normalen HiRes-Grafiken auf dem Bildschirm. Die 
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X-Werte laufen von 0 bis 799, die Y-Werte von 0 bis 551, so 
daß 800 x 552 = 441600 Dots adressiert werden können. 
Die Bitmap ist so organisiert, daß der Ausdruck relativ schnell 
geht. 

Die Ausgabe mit dem Drucker läuft über ein User-Port- 
Kabel, die nötige Treibersoftware ist im Epson-Support schon 
enthalten. Der Ausdruck erfolgt in der sogenannten doppel¬ 
ten Zeichendichte, also mit 960 Punkten pro Zeile, aus Spei¬ 
chermangel können aber nur 800 Punkte pro Zeile verwen¬ 
det werden. Listing 1 und Listing 2 sind zwei Beispielpro¬ 
gramme. Als Ergebnis liefern sie Bild 1 und Bild 2. Bevor Sie 
diese Beispiele probieren, muß das Listing 3 mit dem MSE 
(siehe Seite 7) eingegeben werden und mit SYS49152 initia¬ 
lisiert werden. 

Epson-Support Bedienungsanleitung 

Das Programm Epson-Support wird absolut geladen mit 
LOAD "EPSON-SUPPORT",8,1 und durch SYS 49152 
gestartet. Dem Basic-Programmierer stehen dann einige 
neue Befehle zur Verfügung, um die grafischen Fähigkeiten 
des Epson-Druckers besser auszunutzen, denn im Speicher 
des C 64 wird eine Grafik-Bitmap von 800 x 552 Punkten ver¬ 
waltet. Die Auflösung ist also wesentlich höher als bei norma¬ 
len Bildschirm-Grafiken. 

Die einzelnen Befehle werden im folgenden erläutert: 

&CLEAR 

Damit wird die Grafik-Bitmap gelöscht. Dieser Befehl sollte 
unbedingt am Anfang eines jeden Programms stehen, sonst 
stehen in der Bitmap wirre Muster. 

&DOT X,Y 

Dieser Befehl setzt einen Punkt an der Position (X,Y). DerX- 
Wert liegt zwischen 0 (links) und 799 (rechts), der Y-Wert zwi¬ 
schen 0 (oben) und 551 (unten). Für X und Y kann ein beliebi¬ 
ger numerischer Basic-Ausdruck stehen. 

&RE*- £TDOT X,Y 

Dieser Befehl löscht einen Punkt an der Position (X,Y). Der 
X-Wert liegt zwischen 0 (links) und 799 (rechts), der Y-Wert 
zwischen 0 (oben) und 551 (unten). Für X und Y kann ein 
beliebiger numerischer Basic-Ausdruck stehen. 



Bild 2. Listing 2 erzeugt dieses Bild (hier verkleinert) 





















Basic-Erweiterung 


&INVDOT X,Y 

Dieser Befehl invertiert einen Punkt an der Position (X,Y). 
Der X-Wert liegt zwischen 0 (links) und 799 (rechts), der Y- 
Wert zwischen 0 (oben) und 551 (unten). Für X und Y kann 
ein beliebiger numerischer Basic-Ausdruck stehen. 

&LINE X1,Y1,X2,Y2 

Dieser Befehl zieht eine Linie zwischen den Punkten 
(X1,Y1)und(X2,Y2). Der Wertebereich der Koordinaten ist der 
gleiche wie bei den Dot-Befehlen. Für die Parameter können 
beliebige Basic-Ausdrücke stehen. 

&RESETLINE X1,Y1,X2,Y2 

Dieser Befehl löscht eine Linie zwischen den Punkten 
(X1.Y1) und (X2,Y2). Der Wertbereich der Koordination ist der 
gleiche wie bei den Dot-Befehlen. Für die Parameter können 
beliebige Basic-Ausdrücke stehen. 

&INVLINE X1,Y1,X2,Y2 

Dieser Befehl invertiert die Punkte einer Linie zwischen den 
Punkten (X1.Y1) und (X2,Y2). Der Wertebereich der Koordina¬ 
ten ist wiederum der gleiche wie bei den Dot-Befehlen. Für 
die Parameter können beliebige Basic-Ausdrücke stehen. 

&SCANLINE X1,Y1,X2,Y2 

Dieser Befehl setzt eine Linie zwischen den Punkten 
(XI,Y1) und (X2.Y2). Falls jedoch auf einen schon gesetzten 
Punkt auf dem Linienzug getroffen wird, so wird nicht mehr 
weitergezeichnet. Der Wertebereich der Koordinaten ist der 
gleiche wie bei den Dot-Befehlen. Für die Parameter können 
beliebige Basic-Ausdrücke stehen. 

&PRINT 

Durch diesen Befehl wird die FliRes-Bitmap auf dem 
Drucker ausgegeben. Das Programm ist für Epson 
FX/RX-80-Drucker ausgelegt. Bei Verwendung eines ande¬ 
ren Druckers müssen einige Stellen im Assemblerlisting 
(Listing 4) beim &PRINT-Befehl geändert werden. Siehe dazu 
auch die Kommentare im Listing bei diesem Befehl. 

&EXIT 

Führt zum Verlassen von Epson-Support und bewirkt 
danach einen Basic-Neustart. Basic-Programme sollten vor¬ 
her unbedingt abgespeichert sein, weil sie sonst gelöscht 
werden. 

&TEXT X,Y,"blablabla...' 

Dieser Befehl setzt den Text, welcher in Anführungszei¬ 
chen steht, in die Bitmap an der Position (X,Y). Diese Position 
gibt die Koordinaten der linken unteren Ecke des ersten 
Buchstabens an. 


&RESETTEXT, X,Y,'blabiabla...' 

Dieser Befehl löscht den Text, welcher in Anführungszei¬ 
chen steht, in die Bitmap an der Position (X,Y). Diese Position 
gibt die Koordinaten der linken unteren Ecke des ersten 
Buchstabens an. 

&INVTEXT X,Y,"blablabla..." 

Dieser Befehl invertiert den Text, welcher in Anführungs- 


Zeichen steht, in die Bitmap an der Position (X,Y). 

Diese Posi- 

tion gibt die Koordinaten der linken unteren Ecke des ersten 

Buchstabens an. 

(Alexander Del Pino/gk) 

i aa rem 

< 162> 

110 REM DEM01 - SCHNECKE 

<158> 

120 REM 

<182> 

130 S.CLEAR 

<025> 

140 D=±/120:DX=400:DY=276 

<233> 

150 SX=400/240:SY=276/240 

<050> 

160 FOR 1=0 TO 4»3£TEP£/60 

<096> 

170 X1=S1N(X)»DX:Y1=C0S(I)*DY 

<080> 

1B0 X2=SIN (I+D)*DX:Y2=COS(I+D)*DY 

<051> 

190 Xl=Xl+400: X2=X2+400: Yl=Yl+276s Y2=Y2+27 

6 

< 173> 

200 &HNE400,276,X1,Y1 

<066> 

210 &L1NEX1,Y1,X2,Y2 

<073 > 

220 &L1NEX2,Y2,400,276 

<1B5> 

230 DX=DX—SX:DY=DY—SY 

< 194> 

240 PRINT".“; 

<091> 

250 NEXT 

<004> 

260 &PRINT:END 

<029> 

© 64'«- 

Listing 1. Demo-Programm »Schnecke« 

100 REM 

<162> 

110 REM DEM02 - INTERFERENZ 

<009 > 

120 REM 

< 182> 

130 S.CLEAR 

<025> 

140 FOR 1=0 TO 799 STEP 7 

<219> 

150 “* NT“."; 

<001> 

160 &L1NE400,0,I,552 

<076> 

170 &LINE400,552,I,0 

<041 > 

180 NEXT 

<190> 

190 FOR 1=0 TO 552 STEP 9 

<0I0> 

200 PRINT".“; 

<051 > 

210 ?<INVTEXT356,I, "INTERFERENZ" 

<071 > 

220 NEXT 

<230> 

230 &PRINT : END 

<253> 
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Listing 2. Demo-Programm »Interferrenz« 


Programm 

epson support 

C000 

c54e 

c8f 8 

C100 

: 

bd 

03 

88 

ac 

c4 

3d 

8d 

03 

63 

C0 

03 

03 

90 

3c 

05 

Sa 

7a 

cleB 

Cle8 

: 

03 

d0 

bl 

02 

fb 

e6 

2c 

fc 

bl 

a0 

fe 

37 

e6 

84 

fb 

01 

e7 

ea 

C000 

: 

a9 

ld 

aß 

C0 

8d 

08 

03 

Bc 

b6 

c 108 

: 

c9 

20 

90 

01 

60 

65 

fb 

85 

52 

cif 0 


58 

Bd 

01 

dd 

ad 

00 

dd 

29 

af 

1-000 

: 

09 

03 

a9 

fe 

a0 

if 

B5 

33 

5c 

C110 


fb 

98 

65 

fc 

c9 

C0 

90 

02 

39 

c lf 8 


fb 

Bd 

00 

dd 

09 

04 

Bd 

00 

5d 

C010 

x 

84 

34 

85 

37 

84 

38 

a9 

a4 

fi 

cl 18 


69 

07 

85 

fc 

78 

a9 

34 

85 

b6 

c200 

s 

dd 

ad 

0d 

dd 

29 

10 

f0 

f 9 

7e 

c01B 

: 

avfl 

c4 

4c 

le 

ab 

20 

73 

00 

7b 

c 120 

: 

01 

a0 

00 

2c 

62 

03 

10 

lc 

ae 

c2B8 

: 

18 

60 

a9 

00 

8d 

62 

03 

a9 

06 

C020 

: 

c9 

26 

t0 

06 

20 

79 

00 

4c 

60 

c 128 


50 

10 

ad 

63 

03 

a2 

00 

31 

BB 

c21B 

i 

BB 

Bd 

6b 

03 

20 

4e 

c3 

8d 

bl 

c02B 

s 

®7 

a7 

a2 

ff 

aß 

00 

8c 

62 

8c 

c 130 

: 

fb 

fB 

01 

ca 

8e 

62 

03 

4c 

de 

c218 

X 

50 

03 

8c 

51 

03 

20 

4 b 

c3 

ld 

C030 

: 

03 

eB 

c8 

bd 

d7 

c4 

f 0 

17 

27 

c 138 

: 

59 

cl 

ad 

63 

03 

51 

fb 

91 

17 

c22B 

: 

0d 

52 

03 

8c 

53 

03 

20 

4b 

8d 

C038 

3 

dl 

7a 

f0 

f 5 

«B 

bd 

d7 

c4 

a6 

c 140 

: 

fb 

4c 

59 

cl 

50 

0C 

ad 

63 

d3 

c220 

t 

c3 

0d 

54 

03 

8c 

55 

03 

20 

87 

C04B 

: 

dB 

fa 

ee 

62 

03 

a0 

aa 

bd 

46 

C 1 48 

• 

03 

49 

ff 

31 

fb 

91 

fb 

4c 

eb 

c230 

- 

4b 

c3 

8d 

56 

03 

8c 

57 

03 

83 

C04B 

: 

da 

c4 

d0 

e5 

4c 

08 

af 

BB 

48 

c 150 

: 

59 

cl 

ad 

63 

03 

1 1 

fb 

91 

2d 

C238 

* 

a2 

bi 

a0 

00 

38 

ad 

54 

03 

cb 

C050 

: 

1B 

98 

65 

7a 

85 

7a 

90 

02 

cf 

c 158 

: 

fb 

a9 

37 

85 

01 

50 

60 

78 

ec 

c240 

r 

ed 

50 

03 

8d 

5c 

03 

ad 

55 

07 

C05B 

: 

e6 

7b 

a9 

a7 

48 

a9 

e9 

48 

65 

c 160 


a9 

ff 

8d 

03 

dd 

ad 

02 

dd 

de 

C248 

s 

03 

ed 

51 

03 

Bd 

5d 

03 

10 

e7 

C060 

s 

ad 

62 

03 

0a 

aa 

bd 

31 

c5 

29 

C168 

: 

09 

B4 

Od 

02 

dd 

ad 

00 

dd 

lB 

C250 

X 

18 

ca 

ca 

88 

49 

ff 

Bd 

5d 

16 

C068 

• 

48 

bd 

30 

c5 

48 

4c 

73 

00 

08 

Cl70 

: 

09 

04 

Bd 

00 

dd 

a9 

10 

Bd 

65 

c258 

: 

03 

ad 

5c 

03 

49 

ff 

8d 

5c 

2d 

C0/0 

: 

a9 

00 

a0 

20 

BS 

fb 

84 

fc 

Ba 

cl78 

s 

0d 

dd 

ad 

0d 

dd 

SB 

a2 

05 

b6 

c260 

: 

03 

ee 

5c 

03 

d0 

03 

ee 

5d 

ed 

C078 

: 

78 

a9 

34 

85 

01 

a0 

00 

98 

c9 

c 180 

i 

bd 

90 

c4 

20 

fl 

cl 

ca 

10 

33 

c268 

: 

03 

Be 

58 

03 

8c 

59 

03 

a2 

0e 

C0B0 

: 

91 

fb 

c8 

d0 

fb 

eh 

fc 

a6 

93 

c 188 

: 

f 7 

a9 

00 

a0 

20 

85 

fb 

84 

8f 

c270 

s 

01 

a0 

00 

38 

ad 

56 

03 

ed 

3e 

C08Q 

: 

fc 

e0 

C0 

d0 

f 3 

a2 

cB 

86 

c3 

C 190 

: 

fc 

a9 

00 

85 

fd 

a2 

00 

bd 

82 

c270 

: 

52 

03 

Bd 

5® 

03 

ad 

57 

03 

7c 

C090 

: 

fc 

91 

fb 

cB 

d0 

fb 

®6 

fc 

ef 

c 198 

: 

96 

c4 

20 

fl 

Cl 

b8 

e0 

Be 

da 

C280 

s 

ed 

53 

03 

8d 

5f 

03 

10 

18 

08 

C090 


d0 

f 7 

a9 

37 

B5 

01 

58 

60 

38 

cla0 


d0 

f 5 

a2 

00 

20 

c7 

cl 

e8 

2d 

c288 

s 

ca 

ca 

88 

49 

ff 

8d 

5f 

03 

f 2 

c0a0 

3 

a9 

00 

8d 

62 

03 

20 

4e 

c3 

eb 

claS 

: 

dB 

f a 

20 

C7 

Cl 

«8 

d0 

f a 

93 

C290 

t 

ad 

5« 

03 

49 

ff 

8d 

5e 

03 

42 

C0a8 

: 

8d 

3c 

03 

8c 

3d 

03 

20 

4b 

a9 

clb0 

: 

20 

c7 

cl 

eB 

d0 

f a 

20 

c7 

36 

c298 

: 

ee 

5e 

03 

d0 

03 

ee 

5f 

03 

bb 

c0b0 

: 

c3 

c 0 

02 

90 

05 

C9 

28 

90 

c6 

Clb8 

: 

Cl 

eB 

«?0 

20 

dB 

fa 

E*6 

fd 

96 

c2a0 

s 

8<? 

5a 

03 

8c 

5b 

03 

a0 

00 

fe 

c0bB 

: 

01 

60 

Bd 

3® 

03 

Bc 

3f 

03 

ac 

c 1 c0 

: 

a5 

fd 

c9 

45 

d0 

cf 

60 

78 

7d 

c2a8 

: 

ad 

5c 

03 

0d 

5d 

03 

dB 

01 

19 

C0C0 

: 

<30 

03 

10 

4e 

3-f 

03 

6® 

3e 

f 4 

clcB 

- 

a9 

34 

85 

01 

18 

a5 

fb 

69 

7e 

c2b0 

: 

88 

8c 

60 

03 

8c 

61 

03 

ad 

32 

C0C0 

s 

03 

08 

d0 

f 6 

18 

ad 

3e 

03 

10 

cld0 

r 

00 

85 

fe 

a5 

fc 

69 

08 

85 

4d 

c2b0 

: 

50 

03 

ac 

51 

03 

Bd 

3c 

03 

73 

c0d0 : 69 20 

C0d8 : fb 0a 
c0b0 : 06 fb 
c0e8 : 2a 06 

C0f0 : fc 85 

333? 

85 

65 

2a 

fb 

fc 

fc 

fc 

06 

2a 

a5 

ad 

B5 

fb 

06 

14 

3e 

fc 

2a 

fb 

29 

03 

a9 

06 

2a 

07 

85 

00 

fb 

65 

aa 

2e 

b8 

50 

0d 

9f 

cld8 : ff a0 00 a5 fc c9 C0 b0 5f 

Listing 3. Epson-Support muß mit der 
werden. Sie finden den MSE in dieser 

C2c0 : Sc 3d 03 

n MSE eingegeben 
n Heft auf Seite 8. 

ad 

52 

03 

ac 

53 fö 

, 27 
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Basic-Erweiterung 


c2cS 

: 

03 

85 

14 

84 

15 

20 

5f 

c4 

7d 

c 2 d 0 

s 

20 

bl 

C0 

ad 

SB 

03 

cd 

54 

ac 

c2d8 

s 

03 

dB 

19 

ad 

51 

03 

cd 

55 

4e 

c 2 e 0 

: 

03 

d0 

11 

ad 

52 

03 

cd 

56 

66 

c2@8 

i 

03 

d0 

09 

ad 

53 

03 

cd 

57 

7f 

c 2 f 0 

: 

03 

d0 

01 

60 

2 c 

61 

03 

10 

a2 

c 2 f 8 

: 

29 

18 

ad 

52 

03 

6d 

5a 

03 

ee 

c300 

s 

8d 

52 

03 

ad 

53 

03 

6d 

5b 

e7 

c308 

: 

03 

Bd 

53 

03 

18 

ad 

60 

03 

7e 

c310 

: 

6d 

5c 

03 

Bd 

60 

03 

ad 

61 

b3 

c318 

: 

03 

6d 

5d 

03 

Bd 

61 

03 

4c 

12 

c320 

: 

b7 

c 2 

18 

ad 

50 

03 

6d 

58 

78 

c32Q 

: 

03 

Bd 

50 

03 

ad 

51 

03 

6d 

b3 

c330 

s 

59 

03 

8d 

51 

03 

38 

ad 

60 

02 

c338 

5 

03 

ed 

5e 

03 

Sd 

60 

03 

ad 

6d 

c340 

: 

61 

03 

ed 

5f 

03 

ad 

61 

03 

b2 

c348 

: 

4c 

b7 

c2 

20 

fd 

ae 

20 

8a 

0f 

C350 

: 

ad 

20 

f 7 

b7 

a5 

14 

a4 

15 

ba 

c358 

s 

60 

a9 

40 

4c 

a2 

C0 

a9 

80 

fe 

c360 

; 

4c 

a2 

c0 

a9 

40 

4c 

0 c 

c 2 

7f 

c360 

s 

a9 

80 

4c 

0 c 

c 2 

a0 

a7 

a9 

09 

c370 

: 

e4 

8d 

08 

03 

8c 

09 

03 

38 

0b 

c378 

: 

20 

99 

ff 

86 

37 

84 

38 

4c 

47 

c380 

: 

9a 

e3 

a9 

80 

2 c 

a9 

40 

2 c 

f0 

c388 

z 

a9 

00 

8d 

62 

03 

20 

4e 

c3 

d3 

c390 

: 

8d 

50 

03 

8c 

51 

03 

20 

4b 

de 

c398 

z 

c3 

Bd 

52 

03 

De 

53 

03 

20 

c7 

c3a0 

: 

40 

c4 

d0 

01 

60 

Bd 

6a 

03 

b9 

c3a8 

: 

Bc 

69 

03 

ac 

69 

03 

bl 

64 

7d 


c3b0 

c 

c9 

20 

90 

0b 

c9 

40 

90 

09 

02 

c3bQ 

: 

c9 

60 

b0 

03 

29 

lf 

2c 

a9 

cd 

c3c0 

: 

20 

85 

02 

a9 

la 

06 

02 

2 a 

87 

c3c8 

: 

06 

02 

2 a 

06 

02 

2a 

85 

03 

a8 

c3d0 

: 

78 

a9 

31 

DB 

01 

a0 

07 

bl 

ae 

c3d8 

s 

02 

99 

00 

02 

88 

10 

f 8 

a9 

27 

c3e0 

; 

37 

85 

01 

58 

a9 

00 

Bd 

67 

c5 

c3e8 

a 

03 

a9 

07 

Bd 

68 

03 

ae 

68 

5e 

c3f 0 


03 

bd 

00 

02 

ae 

67 

03 

3d 

bf 

c3f 8 

: 

88 

C4 

f0 

le 

ad 

50 

03 

ac 

a5 

c400 

s 

51 

03 

8d 

3c 

03 

Bc 

3d 

03 

4d 

c408 

z 

ac 

53 

03 

ad 

68 

03 

18 

6d 

ae 

C410 

: 

52 

03 

85 

14 

90 

01 

cB 

20 

3c 

c418 

: 

bl 

c8 

ce 

68 

03 

10 

cf 

ee 

b8 

c420 

: 

50 

03 

d0 

03 

ee 

51 

03 

ee 

ea 

c428 

: 

67 

03 

ae 

67 

03 

B0 

08 

d0 

a2 

c430 

: 

b8 

ee 

69 

03 

ad 

69 

03 

cd 

eB 

c438 

s 

6a 

03 

d0 

01 

60 

4c 

ab 

c3 

17 

C440 

X 

20 

fd 

ae 

20 

9e 

ad 

20 

a3 

2 e 

c448 

- 

b6 

a 0 

00 

bl 

64 

85 

63 

cB 

16 

C450 

t 

bl 

64 

aa 

c8 

bl 


85 

65 

16 

c458 

: 

86 

64 

aß 

00 

aD 

63 

60 

2 c 

88 

c460 

: 

6b 

03 

30 

01 

60 

a 2 

f0 

8e 

75 

c468 

: 

62 

03 

20 

bl 

C0 

ad 

52 

03 

53 

c470 


ac 

53 

03 

85 

14 

2 c 

62 

03 

6a 

c478 

: 

10 

03 

68 

68 

60 

a2 

00 

He 

69 


c480 

: 

62 

03 

60 

a9 

ff 

4c 

11 

c2 

dd 

c48B 

: 

80 

40 

20 

10 

08 

04 

02 

01 

dd 

C490 

: 

0d 

08 

41 

lb 

3B 

lb 

0 a 

0d 

f 4 

c498 

: 

20 

20 

20 

20 

20 

20 

20 

lb 

8e 

c4a0 

5 

2a 

01 

20 

03 

'45 50 

IW 50 

53 

4 f 

76 

c4a8 

: 

4e 

2d 

53 

55 

4f 

52 

76 

c4b0 


54 

20 

20 

56 

31 

2 e 

37 

20 

89 

c4b8 

: 

20 

2 a 

2 a 


0d 

20 

20 

31 

72 

c4c0 

: 

39 

38 

35 

20 

56 

4f 

4e 

20 

C0 

c4c8 

: 

41 

4c 

45 

58 

20 

44 

4D 

4c 

5e 

c4d0 

: 

20 

50 

49 

4e 

4f 

0d 

00 

43 

18 

c4d8 

: 

4c 

4a 

41 

52 

00 

44 

4f 

54 

6a 

c4e0 

: 

00 

52 

45 

53 

45 

54 

44 

4f 

6c 

c4e8 


54 

00 

49 

4e 

56 

44 

4f 

54 

c6 

c4f 0 

• 

00 

4c 

49 

4e 

45 

00 

52 

45 

5b 

c4f 8 

t 

53 

45 

54 

4c 

49 

4e 

45 

00 

a9 

c500 

: 

49 

4e 

56 

4c 

49 

4e 

45 

00 

ac 

c508 

X 

99 

00 

45 

5B 

49 

54 

00 

54 

de 

c510 

: 

45 

58 

54 

00 

49 

4e 

56 

54 

a0 

c518 

: 

45 

58 

54 

00 

52 

45 

53 

45 

c6 

c520 

: 

54 

54 

45 

58 

54 

00 

53 

43 

14 

c528 

: 

41 

-i-p 

4c 

49 

4e 

45 

00 

00 

de 

c530 

x 

6f 

C0 

9f 

c 0 

58 

c3 

5d 

c3 

a 0 

c538 

: 

09 

c2 

62 

c3 

67 

c3 

5e 

cl 

45 

c540 

: 

6c 

c3 

87 

c3 

81 

c3 

84 

c3 

bQ 

c54B 

: 

82 

c4 

00 

00 

c9 

00 

00 

ff 

c9 


Listing 3. Epson-Support muß mit dem MSE eingegeben 
werden. Sie finden den MSE in diesem Heft auf Seite 8. (Schluß) 


100 

•BA »C0O0 ;PL SEITEN 



465 

470 

475 

PHA 

LDA #iE9 

PHA 

105 

110 

115 

; EPSON-SUPPORT 

x 


120 

125 

130 

;VERSION 1.7 

1904 BY 

A. DEL PINO 


480 

485 

LDA FLAG 

ASL 





490 

TAX 

131 





495 

LDA SENTRY+!,X 

132 

iVARIABLEN 6 SVSTEMADRESSEN 


496 


133 

2 




497 

i ADRESSE DES NEUEN BEFEHLS AUF DEN STACK 

PHA 

135 HELP 

= »033C 




500 

140 YVALUE 

= *14 




505 

LDA 5ENTRY,X 

145 XVALUE 

= J033C 




510 

PHA 

150 *1 

= *0350 




515 

JHP *73 

155 VI 

- *1*2 




516 


160 12 

= X I +4 




517 

;H1ER SIND DIE NEUEN BEFEHLE... 

165 Y2 

* X1 *6 




518 

5 

170 XSltP 

= Xl + B 




520 


175 »STEP 

= Xl*10 




525 


1B0 XD1FF 

= Xl*12 




530 

; &CLEAR 

165 YDIFF 

* Xl-14 




535 


190 SUH 

= Xl*16 




540 


195 XHAX 

“ 800 




545 CLEAR 

LDA #<8192 

200 YMAX 

205 DIfiABLE 

= 552 

= tlA • POM Ät IC TV 

runru 



550 

LDY #>3192 

STA IFB 

STY *FC 

210 ENABLE 

= 55 ifeoÜ EINBLENDEN 


64€R OH 

:• 

215 FLAS 

= X1*18 




565 

SEI 

220 SiTPOS 

= X 1 +19 




570 

LDA SDISABLE 

225 FLAG1 

= Xl»23 




575 

STA 1 

230 KLAB2 

= X1+24 




580 

LDY KU 

235 FLAS3 

= X1*25 




585 

TYA 

240 LENÜH 

= X1+26 




590 CL1 

STA ( *i- B) , Y 

245 LINETYP 

= X1+27 




595 

INY 

246 

I 




600 

BNE CL1 

247 

iPROGRAHNSTART, 

ZEIGER VERBIEGEN 


605 

INC *FC 

248 

1 




610 

LDX *FC 

250 

LDA *< ESUP 




615 

CPX #*C0 

255 

LDY 1 ;ESUP 




*20 

BNE CL1 

260 

STA *030e 




625 

LDX #*CB 

265 

STY *0309 




630 

STX *FC 

270 

LDA *<8190 




635 CL2 

STA (5FB),Y 

275 

LDY 1)8190 




640 

INY 

280 

STA *33 




645 

BNE CL2 

2B5 

STY *34 




650 

INC «FC 

290 

STA *37 




655 

BNE CL2 

295 

STY 138 




660 

LDA »ENABLE 

296 

; 




665 

STB 1 

297 

iPROHPT AUSGEBER 



670 

CLI 

298 

Lda #<PR0HPT 




675 

RTS 

300 




6 B0 


305 

LDY #>PR0HPT 




685 


310 

JHP *AB1E 




690 

i DDT - BEFEHLE 

311 

i 




o95 

■ 

312 

[BASIC-TOKEN ERKENNEN 



700 


313 

5SR *73 




705 DDT 

LDA *0 

315 ESUP 




710 

STA FLAG 

320 

CMP * ’ & 1 




715 

JBR VALUE+3 

325 

BEO SUPPORT 




720 

STA XVALUE 

330 

JSR *79 




725 

STY XVALUE*! 

335 

JHP JA7E7 




730 

JSR VALUE 

340 SUPPORT 

L0X **FF 




735 NORKDOT 

CPY # > YHAX 

345 

LDY 10 




740 

BCC SEI 

350 

STY FLAG 




745 

CNF #<YNAX 

355 SLOOP 

I NX 




750 

BCC SEI 

360 

I NY 




755 

RTS 

365 

LDA 5STHTAB.X 




756 

1 

370 

BEG NENSTHT 




757 

!ADRESSE DES PUNKTES BERECHNEN 

375 

CHP (*7A),Y 




75B 

StA 5HELPK2 

380 

BEQ SLOOP 




760 SEI 

385 N*T 

I NX 




765 

STY SHELP«3 

390 

LDA §ST«TAB,X 




770 

LDY #3 

395 

BNE NX! 




775 SE2 

CLC 

400 

INC FLAG 




730 

LSR 5HELP+3 

405 

LDY *0 




785 

ROR SHELP*2 

410 

LDA SSTHTB8*1,X 




790 

DEY 

415 

BNE SLOOP 




795 

BNE SE2 

420 

JHP *AF08 




800 

CLC 

425 NENSTMT 

DEY 




805 

LDA SHELP+2 

430 

CLC 




810 

ADC 4)8192 

435 

TYA 




815 

STA *FC 

440 

ADC S7A 




820 

LDA IHELP+2 

445 

STA *7A 




825 

STA *FB 

450 

BCC LI 




830 

ASL 

455 

456 

INC *7B 

i 




B35 

840 

sta *fc Listing 4. Der Source-Code 

asl *fb zum Epson-Support 

RDL 

457 

458 

460 LI 

iRETURN-ADRESSE 

llDA »*A7 

AUF DEN 

STACK 


845 

350 

355 


28 


sSöLr dc l 

u-rfl -TfWW e.iißl 



















Basic-Erweiterung 


860 

ASL fFB 



1360 HC3 

JSR WROUT 


865 

ROL 



1365 

INX 


870 

ASL SFB 



1370 

BNE HC3 


875 

ROL 



1375 HC4 

JSR WROUT 


880 

ASL SFB 



1380 

INX 


885 

ROL 



1385 

BNE HC4 


890 

ASL SFB 



1390 HC5 

JSR WROUT 


895 

ROL 



1395 

INX 


900 

ADC fFC 



1400 

CPX #(XHAX 


905 

STA $FC 



1405 

BNE HC5 


910 SE4 

L DA 114 



1410 

INC SFD 


915 

AND #7 



1415 

LDA SFD 


920 

TAX 



1420 

CHP »69 


925 

LDA IBIT.X 



1425 

BNE HCl 


930 

STA BITPOS 



1430 

RTS 


955 

LDA XVALUE 



1431 

;ROH AUSBLENDEN 

940 

LDY XVALUE*! 



1435 NROUT 

SEI 


945 

CPY tt>XHBX 



1440 

LDA «DI5A&LE 

950 

BCC SE5 



1445 

STB I 


955 

CUP tKXMAX 



1446 

;ADRESSE DES AUSZUGEBENDEN PUNKTES BERECHNEN 

960 

BCC SE5 



1450 

CLC 


965 

F:TS 



1455 

LDA SFB 


970 SE5 

ADC SFB 



1460 

ADC »<S600 


975 

STA *FB 



1465 

STA SFE 


980 

TYA 



1470 

LDA «FC 


985 

ADC SFC 



1475 

ADC »>»900 


990 

CMF »JCO 



1480 

STA «FF 


995 

BCC SE6 



1485 

LDY *0 


1000 

ADC #7 



1490 

LDA SFC 


1005 SE6 

STA SFC 



1495 

CHP «SCO 


1010 

SEI 

} 



1500 

BCS WRI 


1011 



1505 

LDA (SFB),Y 


1012 

;ROM AUSBLENDEN 
; 



1510 

.8» S2C 


1013 



1515 URI 

LDA (SFE),Y 


1015 

LDA IDISABLE 



1520 

INC SFB 


1020 

STA 1 



1525 

BNE NR2 


1025 

LDY «0 



1530 

INC SFC 


1030 

BIT FLAG 



1531 

;ROH WIEDER 
LDY »ENABLE 

EINBLENDEN 

1035 

BFL DOTOX 



1535 WR2 


1040 

BVC 1NVERT 



1340 

STY I 


1041 




1545 

CLI 


1042 

:PUNKT TESTFN BITTEST 


1546 

;GEBE ASCII- 

ZEICHEN IH ACCU BUS 

1043 

I 



1547 

(BEI DRUCKERN HIT SERIELLER SCHNITTSTELLE 

1045 

LDA BITPOS 



1548 

(HUSS HIER 

JHP SFFD2' STEHEN 

1050 

LDX tO 



1549 

; UND DANACH 
STA SDD01 

AUCH EIN 'RTS’ 

1055 

AND (*FB),Y 



1550 CWROUT 


1060 

BEQ TS1 



1555 

LDA SDDOO 


1065 

DEX 



1560 

AND »SFB 


1070 TS1 

STX FLAB 



1565 

STA fDDOO 


1075 

i)NP ENDDOT 



1570 

ORA »4 


1076 



1575 

STA SDDOO 


1077 

{PUNKT INVERTIEREN 
; 



1580 WA1T 

LDA SDDOD 


1078 



1585 

AND »S10 


1080 1NVERT 

LDA BITPOS 



1590 

BEO WB II 


1085 

EOF ISFBI.Y 



1595 

CLC 


1090 

STA (SFB).Y 



1600 

RTS 


1095 

JHP ENDDOT 



1605 


1100 OOTOX 

BVC SET 

i 



1610 

j 


1101 



1615 

! LINE-BEFEHLE 

1102 

iPUNi.l ZURUECKSE 1 ZEN 


1620 

1 


1103 

LDA B1TF0S 

EOR **FF 



1625 


1105 

1110 


S4€R O 

!!': 

LUM «V 

STA FLAG 


1115 

BND (SFB),» 



1640 

LDA »0 


1120 

STA (SFBl.Y 



1645 

STA LINETYP 


1125 

JHP ENDDOT 



1650 

JSR VALUE*3 


1126 

; 



1655 

STA XI 


1127 

{PUNKT SETZEN 
{ 



1660 

STY X1*1 


S128 



1665 

JSR VALUE 


1130 SEI 

LDA BITPOS 



1670 

STB VI 


1135 

ORB <SF6),Y 



1675 

STY Yl*l 


1140 

STA (SFB),» 



I6B0 

JSR VALUE 


1145 ENDDOT 

LDA SENABLE 



1685 

STA X2 


1150 

STA 1 



1690 

STY X2♦1 


1155 

CLI 



1695 

JSR VALUE 


1160 

RTS 



1700 

STA Y2 


1165 



1705 

STY »2*1 


1170 

t 



1710 

LDX *1 


1175 

; fcPRINT 

i 



1715 

LDY *0 


11 BO 



1720 

SEC 


1185 

;**»*«»*»»***♦«.»♦♦**►*.»»» 


1725 

LDA X2 


1186 

1ÜSERP0RT-1NTERFACE DURCH GEE1GNIES 

1730 

SBC XI 


1187 

: SETZEN DER PORT BAUSTEIN-REGISTER 

1735 

STA XDIFF 


1189 

:INITIALISIEREN. 



1740 

LDA X2*l 



BEI DRUCKERN AH SERIELLEN BUS 

HUSS 

1745 

SBC X1- 1 

STA XDIFF*1 
BPL LU 

DEX 

DEX 

DEY 

EOR »SFF 

STA XDIFF*! 
LDA XDIFF 


1189 

1190 HARDCOPY 
1195 

1200 

1205 

1210 

1215 

1220 

jHIER EIN FILE AUF 

LDA »SFF 

STA SDD03 

LDA SDD02 

ORA S4 

STB SDD02 

LDA SDDOO 

DEN DRUCKER 

EROEFFNET WERDEN. 

1750 

1755 

1760 

1765 

1770 

1775 

1780 

1785 


1225 

ORA «4 



1790 

1795 

EOR i*FF 

STA XDIFF 


1230 

STA SDDOO 



1800 

INC XDIFF 


1235 

LDA US 10 



1805 

BNE LU 


1240 

STA (DDOD 



1810 

INC xo:FF*l 


1245 

LDA SDDOD 



1815 LI 1 

STX XSTEP 


1250 

CLI 



1820 

STY XSTEP*! 


1251 

I STEUERCODES EUER 

EPSON RX-80 AUSGEBEN 

1925 

LDX *1 


1255 

LDX 15 



1830 

LDY »0 


1260 HCO 

LDA STABLEI,X 



1835 

SEC 


1265 

JSR CWRQUT 



1840 

LDA Y2 


1270 

DEX 



1845 

SBC VI 


1275 

BPL HCO 



1050 

STA YDIFF 


1280 

LDA »(8192 



1855 

LDA Y2*l 


1285 

LDY »>8192 



1860 

SBC Yl-1 


1290 

STB SFB 



1865 

STB YDIFF+I 


1295 

STY SFC 



1870 

BPL LI2 


1300 

LDA *0 



1075 

DEX 


1305 

STA SFD 



1 BBO 

DEX 


1306 

1 STEUERCODES FUER 
LDX #0 

NEUE GRAFIKZEILE AUSGEDEN 

1865 

DEY 


1310 HCl 



1890 

EOR »SFF 


1315 

LDA STABLE2,X 



1B95 

STA YD1FF»1 


1320 

JSR CWRQUT 



1900 

LDA YDIFF 


1325 

I NX 



1905 

EOR «SFF 


1330 

CPX »14 



1910 

STA YDIFF 


1335 

1336 

1340 

1345 HC2 

BNE HCl*2 
.•EINE GRAFIKZEILE 
LDX *0 

JSR NROUT 

(0*800 DOTSI 

AUSGEBEN 

1915 

1920 

1925 

1930 L12 

INC YDIFF 

BNE LI2 

INC YDIFF*1 
STX »STEP 

Listing 4. Der Source-Code 
zum Epson-Support 

1350 

1355 

INX 

BNE HC2 



1935 

1940 

STY YSTEP-1 
LDY »0 

(Fortsetzung) 




64er-online 








Basic-Erweiteru ng 


1945 LDA XDIFF 

1950 ORA XD1FF+1 

1955 BNE L13 

1960 DEV 

1965 L13 STV SUR 

1970 STY SUH + 1 

1975 LI4 LDA XI 

1980 LDY mi 

1985 STA XVALUE 

1990 STY XVALUE*1 

1995 LOA Y1 

2000 LDY Yl + 1 

2005 STA YVALUE 

2010 STY YVALUE+1 

2015 JSR SCANN 

2020 JSR NDRKDOT 

2025 LDA XI 

2030 CHR X2 

2035 BNE L15 

2040 LDA Xl + 1 

2045 CRP X2+1 

2050 BNE L15 

2055 LDA Y! 

2060 CRP Y2 

2065 BNE LI5 

2070 LDA Y1+1 

2075 CRP Y2+1 

2080 3NE LI5 

2085 RTS 

2090 L15 BIT SUM+1 

2095 BPL L16 

2100 CLC 

2105 LDA Y1 

2110 ADC YSTEP 

2115 STA Y1 

2120 LDA Yl + 1 

2125 ADC YSTEP+1 

2130 STA Yl+1 

2135 CLC 

2140 LDA SUR 

2145 ADC XDIFF 

2150 STA SUR 

2155 LDA SUH+1 

2160 ADC XDIFF+1 

2165 STA SUH+1 

2170 JHP LI4 

2175 L16 CLC 

2180 LDA X! 

2185 ADC XSTEP 

2190 STA XI 

2195 LDA Xl+I 

2200 ADC XSTEP+1 

2205 STA Xl+1 

2210 SEC 

2215 LDA SUR 

2220 SBC YDIFF 

2225 STA SUR 

2230 LDA SUM + 1 

2235 SBC YDIFF+1 

2240 STA SUR+1 

2245 JI1P LI4 

2250 VALUE JSR 4AEFD B^GR Ofl J 

2255 JSR *AD8A 

2260 JSR *B7F7 

2265 LDA *14 

2270 LDY *15 

2275 RTS 

2276 (FLAG SETZEN FUER H0DIFIZ1ERTEN PUNKT- 
UND LINIEN-FUNKHONEN 
LDA 9*40 
JHP DOT+2 

1NVERTD0T LDA #180 
JHP DOT+2 

RESETLINE LDA #*40 

JHP L1NE+2 
INVERTLINELDA #180 

JHP L1NE+2 


2280 RESETDDT 
2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 

2340 

2341 
2345 EXIT 
2350 
2355 
2360 
2365 
2370 
2375 
2380 

2385 

2386 

2390 1NVTEXI 
2395 

2400 RESTEXT 
2405 

2410 TEXT 

2415 

2420 

2425 

2430 

2435 

2440 

2445 

2450 

2455 

2460 

2465 TXT1 
2470 
2475 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 

2525 TXT3 
2530 
2535 


; IEXIT 

!*•? 


TXT2 


;ZEIGER NIEDER ’BERADEBIEGEN' 

LDY #*A7 

LDA #*E4 

STA *0308 

STY *0309 

SEC 

JSR JFF99 
STX *37 
STY *38 

JHP 1E39A ;SYSTER AUFRUFEN 

: TEXT-BEFEHLE, FLAS SETZEN 

LDA #*80 

-BY *2C 

LDA #*40 

.BY *2C 

LDA #0 

STA FLAG 

JSR VALUE+3 

STA XI 

STY Xl+1 

JSR VALUE 

STA Y1 

STY Yl+1 

JSR STRING 

BNE TXT1 

RTS 

STA LENGH 
STY FLAG3 
LDY FLAG3 
LDA U641.Y 
CRP #*20 
BCC TXT3 
CRP #*40 
BCC TXT3+2 
CRP #*60 
BCS TXT3 
AND #*1F 
.BY *2C 
LDA 1*20 
S1A 2 
LDA #*1A 


2540 

2545 

2550 

2555 

2560 

2565 

2570 

2575 

2580 

2585 

2590 

2595 

2600 

2605 

2610 

2615 

2620 

2625 

2630 

2635 

2640 

2645 

2650 

2655 

2660 

2665 

2670 

2675 

2680 

2685 

2690 

2695 

2700 

2705 

2710 

2715 

2720 

2725 

2730 

2735 

2740 

2745 

2750 

2755 

2760 

2765 

2770 

2775 

2780 

2785 

2790 

2795 

2800 

2805 

2010 

2815 

2820 

2825 

2830 

2835 

»40 

2850 

2855 

2860 

2B65 

2870 

2875 

2BB0 

2885 

2890 

2895 

2900 

2905 

2910 

2915 

2920 

2925 

2930 

2935 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

29B0 

2985 

2990 

2995 

3000 

3005 

3010 

3015 

3020 

3025 

3030 

3035 

3040 

3045 

3050 

3055 

3060 

3065 

3070 

3075 

3080 

3085 

3090 

3095 

3100 El 

3105 

3110 

3115 

READY. 





ASL 

2 


ROL 



ASL 

2 


ROL 



ASL 

2 


ROL 



STA 

3 


SEI 



LDA 

#*31 


STA 

1 


LDY 

#7 

TXT4 

LDA 

12). Y 
*200,Y 


STA 


DEY 



BPL 

TXT4 


LDA 

»ENABLE 


STA 

1 


CLI 



LDA 

•0 


STA 

FLAS! 

TXT5 

LDA 

• 7 


STA 

FLAB2 

TXT6 

LDX 

FLAG2 


LDA 

LDX 

*200,X 
FLAG I 


AND 

SB1T.X 


BEO 

TXT8 


LDA 

XI 


LDY 

Xl + 1 


STA 

XVALUE 


STY 

XVALUE* 1 


LDY 

Yl + 1 


LDA 

FLAG2 


CLC 



ADC 

Y1 


STA 

*14 


BCC 

TXT7 


INY 


TXT7 

JSR 

WORFDOT 

TXTB 

DEC 

FLA62 


BPL 

TXT6 


INC 

<1 


BNE 

TXT9 


INC 

Xl + I 

TXT9 

INC 

FLAS1 


LDX 

FLAS1 


CPX 

• B 


BNE 

TXT5 


INC 

FLAG3 


LDA 

FLA63 


CRP 

LENGH 


BNE 

TXT 10 


RTS 


TXT10 

JRP 

TXT2 

STRING 

JSR 

»AEFD 


JSR 

*AD9E 


JSR 

SB6A3 


LDY 

• 0 


LDA 

(*64>,Y 


STA 

«63 


INY 



LDA 

<*64>,Y 


TAX 



INY 



LDA 

<*64 >,Y 


STA 

*65 


STX 

*64 


LDY 

10 


LDA 

*63 


RTS 


SCANN 

BIT 

LINETYP 


BR 1 

SCAI 


RTS 


SCA1 

LDX 

• *F0 


STX 

FLAG 


JSR 

NORKDOT 


LDA 

Y1 


LDY 

Yl + 1 


STA 

*14 


BIT 

FLAG 


BPL 

SCA2 


PLA 



PLA 



RTS 


SCA2 

LDX 

*0 


STX 

FLAG 


RTS 


SCANNLN 

LDA 

• *FF 


JRP 

LINE+7 


BIT 

TABLEI 

TABLE2 

PROHPT 

STHTAB 


iDATENBEREICH 
i.. 

’.BY 128 64 32 16 8 4 2 1 

■BY 13 9 ’A- 27 B 1 27 

.BY 10 13 • ‘ 27 ••• I XHAX 

.BY EPSON-SUPPORT VI.7 •»*' 13 

■ BY (01984 BY ALEX DEL P1N0’ 13 0 

.BY 'CLEAR- 0 

.BY ' DDT' 0 

•BY -RESETDOT’ 0 

■BY 1NVD0T' 0 

.BY 'LINE' 0 

■BY 'RESETLINE' 0 

-BY '1NVLINE' 0 

■BY 153 0 

■BY 'EXIT' 0 

■BY TEXT' 0 

■BY *1NVTEXT 1 0 

.BY RESETTEXT' 0 

.BY 'SCANL1 NE * 0 0 

.BY CLEAR-1 DOT-1 RESETDOT-1 INVERTDGT-1 
• BY LI NE-1 RESETLINE-! INVERTLINE-1 
HARDCOPY-I EX1T-1 

•BY TEXT-1 INVTEXT-1 RESTEXT-I SCANNLN-1 
■EN ;END OF SOURCE-FILE 


Listing 4. Der Source-Code zum Epson-Support 
(Schluß) 
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.de 

.net 
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Plotter-Basic 

Plotter-Basic ist eine Basic-Befehls- 
erweiterung für den Printer/Plotter 
1520 von Commodore. Es ermöglicht 
eine starke Vereinfachung der norma¬ 
len Plotterbedienungen und erlaubt 
zusätzlich zum Beispiel räumliche 
Zeichnungen zu erstellen und be¬ 
liebig zu drehen. 

Außerdem verfügt es über die Möglichkeit Kreise 
beziehungsweise Ellipsen zu zeichnen, Blockdiagramme zu 
erstellen oder komfortable Funktionen-Plot-Programme zu 
schreiben. 

Die Befehlserweiterung funktioniert nach dem Prinzip, daß 
jedes Befehlswort auf einen vorangestellten Punkt unter¬ 
suchtwird, der einen Plotter-Basic-Befehl kennzeichnet, zum 
Beispiel .RESET. 

Nach dem Start mit SYS 12*4096 initialisiert sich das Pro¬ 
gramm (Listing 1) und gibt eine Einschaltmeldung aus. Die 
Initialisierung besteht darin, daß auf eventuelle andere 
Spracherweiterungen Rücksicht genommen wird und die 
Zeiger so verändert werden, daß die andere Erweiterung 
funktionstüchtig bleibt. Voraussetzung dafür ist natürlich, daß 
der Speicherbereich, den Plotter-Basic benötigt, nicht von 
fremden Programmen gebraucht wird. Es handelt sich hierbei 
um den Bereich $C000 bis SC8F5 beziehungsweise 49187 
bis 51445. 

Die Zeiger, die verändert werden mußten, sind die Vektoren 
$308/$309 und $300/$301 (Warmstart-Vektor). Normaler¬ 
weise zeigt der Vektor $308/$309 auf die Routine SA7E4 
(Basic-Befehlsadresse holen). Nach der Initialisierung zeigt 
er nun auf eine Routine, die auf einen vorangestellten Punkt 
testet und den gegebenenfalls erkannten Befehl ausführt. 

Die Veränderung des Warmstartvektors ermöglichte es bei 
dem Befehl .PROG, der das Programmlisting zum Drucker 
schickt, die READY-Meldung wiederauf dem Bildschirm aus¬ 
zugeben und den Druckkanal ordnungsgemäß zu schließen. 
Außerdem besteht durch Veränderung dieses Zeigers die 
Möglichkeit, Fehlermeldungen zu unterdrücken beziehungs¬ 
weise zu kontrollieren, ohne den Programmablauf abbrechen 
zu lassen. 

Befehlsbeschreibung: 

Die allgemeine Syntax der Befehle sieht folgendermaßen 
aus: 

a) .BEFEHLSWORT keine Parameter erforderlich 

oder 

b) .BEFEHLSWORT,Parameter1,Parameter2.Parameter n 

Sieht der Befehl also eine Parameterübergabe vor, so müs¬ 
sen diese vom Befehlswort durch Kommata getrennt werden. 
Die Parameter können sowohl Variablen als auch Zahlen sein. 
Ausnahmen sind bei den entsprechenden Beschreibungen 
erklärt. 

Grundsätzlich muß jedem Plotter-Basic-Befehlswort ein 
Punkt vorangestellt werden. Mehrere Befehle in einer Zeile 
müssen durch einen Doppelpunkt voneinander getrennt sein. 

Beispiel: .BLAU:.SUPER 

Eine Besonderheit sei hier noch erwähnt, die ihre Ursache 
darin hat, daß die neuen Befehlsworte nicht als Tokens codiert 
wurden. Die neuen Befehle werden im Speicher nämlich 
Buchstabe für Buchstabe abgelegt. Basic-Befehle dagegen 


besitzen jeweils einen Ein-Byte-Code (Token), in den sie nach 
der Eingabe umgewandelt werden. Bevor aber nun der Basic- 
Interpreter die einzelnen Tokens erkennt, wird eine Untersu¬ 
chung auf Plotter-Basic-Befehle durchgeführt. Diese 
Methode hat ihre Schwachstelle bei einer IF...THEN-Abfrage. 
Sobald nämlich der Befehl hinter THEN abgearbeitet werden 
soll, wird nicht mehr zur umgelenkten Interpreterschleife 
zurückgesprungen, sondern sofort der nächste Befehl als 
Token interpretiert. Falls dieser Befehl aber aus Plotter-Basic 
stammt, kommt es zu einem Syntax-Error. Dieses Problem 
läßt sich jedoch lösen, indem man dem THEN einen Doppel¬ 
punkt folgen läßt. 


Beispiel: IF A=99THENi.TEXT,"neunundneunzig" 
Möchte man Plotter-Basic mit einer anderen Spracherwei- 
terung gleichzeitig betreiben, so muß Plotter-Basic als letztes 
geladen werden. Da unter Umständen manche Befehlsworte 
mit der anderen Sprache identisch sind, kann es zu Fehler¬ 
meldungen kommen, die man dadurch unterdrückt, daß man 
nur die ersten Buchstaben des Plotter-Basic-Befehls eingibt. 
Es wird dann der Befehl ausgeführt, der die entsprechenden 
Anfangsbuchstaben besitzt und als erstes im Speicher steht. 
Bei den meisten Befehlen reicht es, nur die beiden ersten 
Buchstaben zur Identifizierung anzugeben. 


Beispiel: .RO = .ROT 

.PR,10 = .PROG,10 

Die Parameter können also auch schon nach zwei Buch¬ 
staben folgen. Die Reihenfolge, in der die Befehlsworte im 
Speicher abgelegt sind, und ihre Startadressen sind am Ende 
der Beschreibung aufgeführt. Dadurch ist es möglich, die 
Befehle über SYS-Aufrufe ausführen zu lassen. 


Nun aber zur Erklärung der Befehle im Einzelnen: 

1. Farbwahl 


.BLAU 
° .ROT 
.GRÜN 
.SCHWARZ 


stellt die entsprechende Farbe ein 


.FARBE,f wählt die Zeichenfarbe gemäß f. 

Der Parameter f entspricht der Farbnummer, wie es in der 
Plotter-Anleitung erklärt ist. 


2. Wahl der Zeichengröße 

.KLEIN entspricht 80 Zeichen/Zeile 
.MITTEL entspricht 40 Zeichen/Zeile 
.GROSS entspricht 20 Zeichen/Zeile 
.SUPER entspricht 10 Zeichen/Zeile 
.SIZE.g wählt die Zeichengröße gemäß g. 
(Näheres siehe Plotter-Anleitung.) 


3. Ausdruck von ASCII-Daten 

.TEXT,a$ druckt den String a$ 

.TEXT erzeugt eine Leerzeile (Carriage Return) 

.PROG 
.PROG,10 
.PROG,40— 

.PROG,100—556 

Dieser Befehl entspricht dem LIST-Befehl in Basic. Ohne 
Parameter wird das gesamte Programm gelistet, mit Parame¬ 
tern wird entsprechend eine Zeile oder mehrere Zeilen aus¬ 
gedruckt. 

4. Wahl der Schriftarten 

.GG stellt den Groß/Grafik-Modus ein. 

.GK stellt den Groß/Klein-Modus ein. 


5. Zeichendrehung 

.DREH.r stellt für r=0 den Horizontalbetrieb ein und ver¬ 
ursacht bei r=1 eine Zeichendrehung um 90 Grad nach 
rechts. 


6. Druckerrückstellung und Speicherlöschung 

.RESET setzt den Printer/Plotter zurück und löscht seinen 
Speicher. 
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7. Wahl der Linienart 

-STRICH,I bestimmt die Linienart. Für I gelten die Angaben 

der Plotteranleitung. 

8. Zeichnen von X/Y-Daten 

.HOME bewegt zum Startpunkt (0/0). 

.INIT legt den relativen Nullpunkt auf die derzeitige 

X/Y-Position. 

.MOVE,x,y bewegt zur Position (x/y) relativ zum absoluten 
Nullpunkt (0/0). 

.DRAW.x.y zeichnetzur Position (x/y) relativ zum absoluten 
Nullpunkt (0/0). 

,RMOVE,x,y bewegt zur Position (x/y) relativ zum relativen 
Nullpunkt (xO/yO). 

.RDRAW,x,y zeichnet zur Position (x/y) relativ zum relativen 
Nullpunkt (xO/yO). 

.LINIE,x1,y1,x2,y2 zeichnet eine Linie von Position (xl/yl) zu 
Position (x2/y2). 

.RAHMEN,x,y,b,h zeichnet einen Rahmen ab dem Eckpunkt 
(x/y) mit der Breite b und der Höhe h. 

.KREIS,x,y,xr,yr zeichnet eine Ellipse um den Mittelpunkt 
(x/y) mit einem Radius in x-Richtung von xr und 
einem Radius in y-Richtung von yr. Gilt xr=yr so 
entsteht ein Kreis. 

.RADIUS,x,y,xr,yr,w zeichnet in die entsprechende Ellipse 
einen Radius, der mit der positiven X-Achse den 
Winkel w (in Grad!) bildet. 

Erklärung zum KREIS- und RADIUS-Befehl: 



S46R OH 


9. Zeichnen von X/Y/Z-Daten 

Die folgenden Befehle dienen dazu, dreidimensionale Gra¬ 
fiken zu erzeugen. Im wesentlichen transformieren sie drei 
Raumkoordinaten auf zwei Ebenenkoordinaten. Allen Be¬ 
rechnungen liegen diese Formeln zugrunde: 

x=f * [xr+yr * cos( w) ]+xv 

y=f * [zr+yr*sin(w)j+yv 

xr, yr und zr sind Raumkoordinaten, w ist der Betrachtungs¬ 
winkel des Punktes in Grad, und f stellt einen Vergrößerungs- 
(fürf größer als 1) beziehungsweise Verkleinerungsfaktor (für 
f zwischen 0 und 1) dar. 

xv und yv dienen dazu, den Punkt im zweidimensionalen 
Koordinatensystem zu verschieben. 

Die Achsen des räumlichen Koordinatensystems sind ent¬ 
sprechend der Abbildung bezeichnet: 



.TRANSM,xr,yr,zr,xv,yv,f,w bewegt zur Position (x/y) relativ 
zum absoluten Nullpunkt, die sich durch Einsetzen aller Para¬ 
meter in die obige Formel ergibt. 

.TRANSD,xr,yr,zr,xv,yv,f,w zeichnet zur entsprechenden Posi¬ 
tion (x/y) relativ zum absoluten Nullpunkt. 
.TRANSL,xr1,yr1,zr1,xv,yv,f,w,xr2,yr2,zr2 zieht eine Linie von 
(xl/yl) nach (x2/y2) entsprechend den Parametern. 

Möchte man also beispielsweise das räumliche Koordina¬ 
tensystem zeichnen, so wählt man als Ursprung der drei Ach¬ 
sen den Nullpunkt, also xr1=yr1=zr1=0. Je nachdem, wel¬ 
che Achse gezeichnet werden soll, setzt man für die xr- 
Achse xr2=1, yr2=0, zr2=0, für die yr-Achse dann xr2=0, 
yr2=1, zr2=0 und für die zr-Achse xr2=0, yr2=0 und 
zr2 = 1. Um das Bild in die Mitte des Papiers zu bringen, setzt 
man die x-Verschiebung xv=240 und die y-Verschiebung 
yv=0. Da als Länge für die Achsen »eins« zu klein ist, könnte 
man den Faktor f=50 wählen. Der Betrachtungswinkel sei 
w=45 (Grad). Somit ergibt sich für die Zeichnung des Koor¬ 
dinatensystems: 

10 TRANSL,0,0,0,240,0,50,45,1,0,0:REM xr-Achse 

20 TRANSL,0,0,0,240,0,50,45,0,1,0:REM yr-Achse 

30 .TRANSL,0,0,0,240,0,50,45,0,0,1:REM zr-Achse 

10. Drehung von x/y/z-Koordinaten 

Um einen Körper von allen Seiten darstellen zu können, 
müssen die Raumkoordinaten gedreht werden. Dabei ist es 
natürlich möglich, um jede beliebige Raumachse und um 
jeden beliebigen Winkel zu drehen. Macht man sich eine sol¬ 
che Drehung am Koordinatensystem deutlich, so bemerkt 
man, daß sich jeweils die Komponente nicht verändert, um 
deren Achse gedreht werden soll. Bei einer Drehung um die 
xr-Achse verändern sich nur die yr- und die zr-Komponente, 
bei einer Drehung um die yr-Achse verändern sich nur xr und 
zr etc 

Der Befehl ,TURN,k1,k2,w benötigt daher außer der 
Angr' a des Drehwinkels w in Grad nur die zwei Komponen¬ 
ten kl und k2. Hierbei muß es sich um Variablen handeln! Vor 
dem Befehlsaufruf befinden sich in den Variablen die räum¬ 
lichen Koordinaten eines Punktes und nach der Befehlsaus¬ 
führung stehen in den Variablen die Koordinaten des neuen 
(gedrehten) Punktes. 

Angenommen, in den Variablen xr,yr und zr befinden sich 
die Koordinaten eines Punktes, so könnte man ihn folgender¬ 
maßen um den Winkel w drehen: 

Drehung um die xr-Achse: .TURN,yr,zr,w 

Drehung um die yr-Achse: .TURN,xr,zr,w 

Drehung um die zr-Achse: ,TURN,xr,yr,w 

Anhand der Formeln zur Drehung läßt sich erkennen, 
warum der Befehl für alle drei Drehrichtungen richtige Ergeb¬ 
nisse liefert: 

Drehung um die xr-Achse: 
xr’=xr yr'=yr*cos(w)+zr*sin(w) 
zr'=—yr*sin(w)+zr*cos(w) 

Drehung um die yr-Achse: 
yr*=yr xr'=xr*cos(w)+zr*sin(w) 
zr’=—xr*sin(w)+zr*cos(w) 

Drehung um die zr-Achse: 
zr’=zr xr'=xr*cos(w)+yr*sin(w) 
yr’=—xr*sin(w)+yr*cos(w) 

Ein kleines Beispielprogramm (Listing 2) demonstriert die 
Möglichkeiten dieses und des TRANSL-Befehls anhand der 
Drehung eines Körpers. 

11. Fehlerbehandlung 

Um zum Beispiel ein Programm zu schreiben, das jede 
beliebige Funktion plottet, ist es erforderlich, mathematische 
Fehlermeldungen zu unterdrücken. Sobald nämlich eine 
Funktion Definitionslücken besitzt, steigen die meisten Pro¬ 
gramme mit einem »division by zero« oder ähnlichem aus. 

Der Befehl .ERRJUMP.ze setzt die Programmausführung in 
der Zeile ze fort, sobald ein arithmetischer Fehler aufgetreten 
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ist. Es handelt sich hierbei um die Fehler division by zero, 
illegal quantity und overflow. Sollte innerhalb einer FOR- 
NEXT-Schleife oder in einem Unterprogramm ein Fehler auf- 
treten, so kann nicht wieder zu NEXT beziehungsweise 
RETURN gesprungen werden, da nun die notwendige Rück¬ 
sprungadresse nicht mehr gefunden wird. FOR-NEXT- 
Schleifen und Unterprogrammsprünge lassen sich in solchen 
Fällen jedoch auch mit GOTO programmieren. 

Der Befehl ist nur während des Programmablaufs wirksam, 
um zu verhindern, daß bei Fehlem im Direkt-Modus das Pro¬ 
gramm neu gestartet wird. 

Sollen grundsätzlich alle Fehler unterdrückt werden, so 
muß hinter der Zeilennummer noch eine Sekundärvariable 
folgen: 

.ERRJUMP,ze,s setzt die Programmausführung in der Zeile 
ze fort, sobald irgendein Fehler auftritt. Die Variable s ist nur 
eine Scheinvariable, das heißt sie wird weder verändert noch 
spielt ihr Typ eine Rolle. Am einfachsten ist es hier, eine Zahl 
anzugeben. 

.ERRNUM.x schreibt in die Variable x die Fehiernummer 
des zuletzt aufgetretenen Fehlers. Bei x muß es sich um eine 
Variable handeln! Die Fehlernummer ist nur einmal lesbar und 
wird danach wieder auf Null gesetzt, bis der nächste Fehler 
auftritt. Innerhalb der Variablen bleibt die Fehlernummer 
natürlich erhalten. Die Fehlermeldungen besitzen folgende 
Nummern: 


file open 
file not found 
not input file 
missing filename 
next without for 
return without gosub 
illegal quantity 
out of memory 
bad subscript 
division by zero 
type mismatch 
file data 
can't continue 
verify 
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1 too many files 2 

3 file not open 4 

5 device not present 6 

7 missing filename 8 

9 illegal dev. number 10 

11 syntax 12 

13 out of data 14 

15 overflow 16 

17 undef’d Statement 18 

19 redim'd array 20 

21 illegal direct error 22 

23 String too long 24 

25 form, too complex 26 

27 undefd function 28 

29 load 

.ERROUT schaltet innerhalb des Programms die Fehlerun¬ 
terdrückung wieder aus. Dieser Befehl wird zum Beispiel 
dann nötig, wenn am Ende des Programms ein Listing ausge¬ 
druckt werden soll, da beide Befehle den Warmstartvektor 
ändern. Grundsätzlich wird die Fehlerunterdrückung mit 
Ende des Programms abgeschaltet. 

12. Ausschalten von Plotter-Basic 
.AUS setzt alle Zeiger wieder so, wie sie vor dem Start von 
Plotter-Basic standen und schaltet somit die Spracherweite- 
rung ab. Erneutes Einschalten geschieht mit SYS 12*4096. 
Die Befehlsadressen im Speicher 
Um sämtliche Zeiger unverändert zu lassen, kann man 
Plotter-Basic auch ohne Startaufruf benutzen. Nach dem 
Laden lassen sich alle Befehle über SYS-Aufrufe ausführen. 
Zum Beispiel: .KREIS,240,0,80,50 entspricht SYS50184, 
240,0,80,50 

Parameter werden wie gewöhnlich durch das Komma ge¬ 
trennt. 

Die Reihenfolge entspricht der Reihenfolge, in der die 
Befehlsworte erkannt werden. .KREIS wird also schneller 
erkannt als .FARBE. 


INIT 
SIZE 
MOVE 
DREH 
DRAW 
STRICH 


= 49916 
= 49783 
= 49926 
= 49833 
= 49974 
= 49888 


RADIUS 

ERROUT 

TRANSM 

ERRNUM 

TRANSD 

AUS 


50644 

51290 

50729 

51379 

50751 

49157 


RMOVE 

= 

49987 

TRANSL 

= 

GG 

= 

49807 

TURN 

— 

RDRAW 

= 

50000 

BLAU 

= 

GK 

= 

49815 

RCT 

= 

HOME 

= 

49906 

GRUEN 

— 

PROG 

= 

50413 

SCHWARZ 

= 

RAHMEN 

= 

50471 

FARBE 

= 

TEXT 

= 

49851 

KLEIN 

= 

LINIE 

= 

50013 

MITTEL 

= 

RESET 

— 

49823 

GROSS 

= 

KREIS 

= 

50184 

SUPER 

— 

ERRJUMP 

= 

51233 




50764 

51091 

49695 

49703 

49711 

49719 

49727 

49751 

49759 

49767 

49775 


(Stephan Schäfer/gk) 


10 REM ****************** 

20 REM PLOTTER—BAS X C DEMO 
30 REM ****************** 

.SCHWARZ:.GK:.MITTEL 

■ TEXT , " <5SPACET3REHUNG EINES 3-2-.KJ3ERPE 
RS" 

.TEXT,"<5SPACE>= 


35 

37 


3B 


= = = = = = 3 = 


39 .MOVE,0,-70:.TEXT 

40 XV=240:YV=0:REM VERSCHIEBUNGSVEKTOR 

41 F—15 :REM VERGROESSERUNG 

42 W=35 -.REM BETRACHTUNGSWINKEL 

43 L=24 :REM ANZAHL DER LINIEN 

45 DIM R(L) :REM FELD DER LINIEN 

50 P=8 :REM ANZAHL DER ECKPUNKTE 

55 DIM X(P>:DIM Y<P):DIM Z(P> 

60 REM EINLESEN DER ECKPUNKTE 
70 FOR 1=1 TO P 
B0 READ X(I),Y(I),Z(I) 

90 NEXT 

100 REM EINLESEN DER VERBINDUNGSFOLGE 
110 FOR 1=1 TO L 
120 READ R(I) 

130 NEXT 

140 REM ZEICHNUNG 
150 FOR 1=1 TO L STEP 2 
Mi . TRANSL , X (R < I ) ) ,Y(R< I) ) ,Z (R < I > ) , XV, YV, 
F,W,XCR(I+1>),Y(R(I+1)),Z<RII+1>) 

170 NEXT 

180 REM DREHUNG UM 10 GRAD 
185 DW=DW+10 
190 FOR 1=1 TO P 

200 .TURN, X (I >,Y<I>,DW:REM DREHUNG UM Z 
210 NEXT 
220 .MOVE,0,-150 

230 .TEXT :REM CR SENDEN 

240 PRINT "tDQWNJCOMMODORE—TASTE DRUECKEN! 

250 WAIT 653,2 
260 PRINT "CUP,25SPACE,UP>" 

270 GOTO 140 

499 REM ECKPUNKTE 

500 DATA -2,-2,0,2,-2,0,2,2,0,-2,2,0,0,0,6 
,4,0,6,4,4,6,0,4,6 

599 REM REIHENFOLGE DER VERBINDUNGEN 

600 DATA 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8 
,5,5,6,6,7,7,8 


<053> 

<093> 

<073> 

<1B3> 

< 120 > 

<156> 
<162> 
< 022 > 
<236> 
< 012 > 
<079 > 
<161 > 
<061> 

< 115> 
<191 > 
<056> 
<054> 
< 100 > 
< 022 > 
<094 > 
<029> 

< 140> 
< 120 > 

< 147> 

< 011 > 

< 180> 
< 020 > 
<242> 

< 176> 

< 111 > 
< 220 > 
<059> 
<231 > 

< 174> 
< 210 > 
<080 > 
<008> 

<023> 

< 155> 
<103> 

< 101 > 


8 64 'er 

Listing 2. Dieses Programm dient dazu, einen Spat in 
10-Grad-Schritten zu drehen und dann zu zeichnen. Das 
neue Bild wird jeweils nach Drücken der Commodore- 
Taste gekennzeichnet (Programm-Abbruch über 
RUN/STOP-RESTORE). 


Programm : PI-Basic 
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4c 

4c 


Listing 1. Plotter-Basic muß mit dem MSE (auf Seite 8) 
eingegeben werden 


Mi33ii 

64er-online 







Basic-Erweiteru ng 
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b2 
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20 

20 

42 
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41 

55 

20 

20 

e2 

c310 


20 

d2 

ff 

a9 

20 

20 

d2 

ff 

ld 

c 120 

20 

52 

4f 

54 

20 

20 

20 

20 

Bc 

c318 


20 

9e 

ad 

20 

dd 

bd 

20 

le 

7f 

c 128 

47 

52 

55 

45 

4e 

20 

20 

53 

a3 

c320 
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20 
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fd 
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52 
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dd 
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b9 

c348 


20 

01 

c2 

a9 

52 

4c 

10 
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Listing 1 

Plotter-Basic (Fortsetzung) 










Basic-Erweiterung 
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bb 

60 

a9 

f 5 

a0 

cB 

20 

a2 

8a 

c570 

c8 

20 

a2 

bb 

20 

fc 

c3 

a9 

b5 

c768 


bb 

a9 

cf 

a0 

c5 

20 

28 

ba 

73 

c57B 

e6 

a0 

c8 

20 

a2 

bb 

20 

fc 

67 

c770 


20 

64 

e2 

a2 

eb 

a0 

c8 

20 

f 6 

c580 

c3 

20 

16 

c2 

20 

b9 

c5 

a9 

6b 

c778 


d4 

bb 

a9 

f 5 

a0 

c8 

20 

a2 

69 

c588 

d7 

a0 

cB 

20 

a2 

bb 

20 

fc 

68 

c780 


bb 

a9 

cf 

a0 

c5 

20 

28 

ba 

8b 

c590 

c3 

a9 

e6 

a0 

cB 

20 

a2 

bb 

85 

c788 


20 

6b 

e2 

a2 

f 0 

a0 

c8 

20 

g2 

c598 

20 

f c 

c3 

20 

16 

c2 

20 

b9 

97 

c790 


d4 

bb 

60 

20 

3c 

c7 

20 

62 

a5 

c5a0 

c5 

a9 

d7 

a0 

cB 

20 

a2 

bb 

d3 

c798 


c7 

ad 

e6 

c8 

ac 

e7 

c8 

20 

76 

c5a8 

20 

f c 

c3 

a9 

de 

a0 

c8 

20 

a3 

c7a0 


a2 

bb 

a9 

eb 

a0 

cB 

20 

28 

29 

c5b0 

a2 

bb 

20 

fc 

c3 

20 

16 

c2 

f 3 

c7aB 


ba 

a2 

el 

a0 

c8 

20 

d4 

bb 

98 

c5bB 

60 

a0 

01 

20 

01 

c2 

a9 

44 

02 

c7b0 


ad 

e8 

c8 

ac 

e9 

c8 

20 

a2 

44 

c5c0 

20 

d2 

ff 

a9 

20 

20 

d2 

ff 

cd 

c7bB 


bb 

a9 

f 0 

a0 

c8 

20 

28 

ba 

3c 

c5c8 

60 

83 

55 

de 

a7 

6e 

00 

7b 

C0 

c7c0 


a9 

el 

a0 

c8 

20 

67 

b8 

a2 

00 

c5d0 

0e 

f a 

35 

12 

20 

12 

c4 

20 

dl 

c7c8 


f a 

a0 

cB 

20 

d4 

bb 

ad 

e6 

f 8 

c5d8 

fd 

ae 

20 

9e 

ad 

a9 

cf 

a0 

bl 

c7d0 


c8 

ac 

e7 

c8 

20 

a2 

bb 

20 

47 

c5e0 

c5 

20 

28 

ba 

a2 

f0 

a0 

c8 

de 

c7d8 


b4 

bf 

a9 

f0 

a0 

cB 

20 

28 

15 

c5e8 

20 

d4 

bb 

20 

47 

c4 

a0 

01 

84 

c7e0 


ba 

a2 

el 

a0 

c8 

20 

d4 

bb 

d0 

c5f 0 

20 

01 

c2 

a9 

4a 

20 

d2 

ff 

68 

c7e8 


ad 

e8 

cB 

ac 

e9 

c8 

20 

a2 

7c 

c5f 8 

a9 

20 

20 

d2 

ff 

a9 

f0 

a0 

66 

c7f 0 


bb 

a9 

eb 

a0 

cB 

20 

28 

ba 

32 

c600 

cB 

20 

a2 

bb 

20 

64 

e2 

a9 

fc 

c7f 8 


a9 

el 

a0 

c8 

20 

67 

b8 

ad 

4e 

c60B 

el 

a0 

c8 

20 

28 

ba 

20 

fc 

42 

c800 


e8 

c8 

ac 

e9 

c8 

85 

49 

84 

9b 

c610 

c3 

a9 

f 0 

aO 

cB 

20 

a2 

bb 

87 
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c80B 

4a 

20 

d6 

a9 

a9 

Fa 

a0 

cB 

d4 

c810 

20 

a2 

bb 

ad 

e6 

cB 

ac 

e7 

5d 

c818 

c8 

85 

49 

84 

4a 

20 

d6 

a9 

da 

c820 

60 

20 

Fd 

ae 

20 

Ba 

ad 

20 

33 

c828 

F7 

b7 

a5 

14 

a4 

15 

8d 

58 

cl 

c830 

c8 

Bc 

59 

cB 

a9 

65 

Bd 

00 

aa 

c838 

03 

a9 

cB 

8d 

01 

03 

a0 

00 

9e 

c840 

a9 

2c 

dl 

7a 

d0 

0c 

20 

73 

98 

c848 

00 

20 

9e 

ad 

a9 

63 

8d 

a6 

eF 

c850 

cB 

60 

a9 

00 

Bd 

a6 

cB 

60 

a5 

cB5B 

00 

00 

a9 

0d 

a0 

c5 

Bd 

00 

d3 

cB60 

03 

8c 

01 

03 

60 

c9 

Bl 

d0 

46 

c868 

0a 

C0 

a3 

d0 

06 

20 

5a 

c8 

32 

c870 

4c 

91 

cB 

ad 

a6 

cB 

d0 

lc 

99 

c87B 

86 

02 

8a 

30 

14 

e0 

0e 

F0 

0a 

cBB0 

13 

e0 

0F 

F0 

0F 

e0 

10 

F0 

FF 

c8B8 

le 

B0 

14 

f0 

07 

aa 

6c 

Fa 

a7 

cB90 

c3 

4c 

74 

a4 

86 

02 

ad 

58 

0b 

c89B 

cB 

ac 

59 

cB 

85 

14 

84 

15 

5b 

c8a0 

20 

a3 

a8 

4c 

ae 

a7 

00 

68 

3e 

c8aB 

aB 

68 

a2 

Fa 

9a 

48 

98 

48 

6b 

c8b0 

4c 

94 

cB 

20 

Fd 

ae 

20 

Bb 

69 

cBbS 

b0 

Bd 

e6 

c8 

Bc 

e7 

c8 

a4 

76 

cBc0 

02 

20 

a2 

b3 

ad 

e6 

cB 

ac 

80 

cBcS 

e7 

c8 

85 

49 

84 

4a 

20 

d6 

67 

cBd0 

a9 

a9 

00 

85 

02 

60 

00 

00 

22 


Listing 1. Plotter-Basic (Schluß) 

29 Drucker- 

B46H OT 

befehle 
für Epson 

Oft ist es recht mühsam, die vielen 
Fähigkeiten der Epson-Drucker aus¬ 
zunutzen. »Epson 29« macht das 
ständige Nachschlagen im Handbuch 
überflüssig. 

Diese kurze, aber doch recht wirkungsvolle Erweiterung 
ermöglicht es auf einfachste Weise, Steuercodes an einen 
Epson-Drucker zu senden. Es belegt den freien RAM- 
Bereich zwischen den Speicherzellen 50000 und 50503, 
und arbeitet auch mit dem Centronics-Interface, das Sie in 
dieser Ausgabe finden, zusammen. Doch hier zuerst eine 
alphabetisch geordnete Übersicht: 

— A — Adresse: — A, gefolgt von einer Zahl, legt fest, 

über welchen Kanal die folgenden Kommandos zum 
Drucker gesendet werden sollen. Beispiel: — A4, die 
nachfolgenden Befehle werden über Kanal 4 zum 
Drucker geschickt. Wird dieser Befehl nicht gesen¬ 
det, geht der Computer davon aus, daß Sie Kanal 1 
benutzen. 

— B — Breitschrift an 

— D — Doppeldruck an 

— E — Eliteschrift an 

— F — Fettdruck an 

— G — Glocke, sendet Beil-Code an Drucker, um zum Bei¬ 

spiel den Druckbeginn akustisch anzukündigen. 


— I — Indexschrift an 

— K — Kursivschrift an 

— L — Linken Rand setzen. Beispiel: — LI5 setzt linken 

Rand auf die 15. Druckposition. 

— N —unidirektionaler Ausdruck (verbessert Qualität des 

Schriftbildes). 

— 0 — Potenzieren an 

— P — Pica an 

— R — Rechten Rand setzen (parallel zu — L) 

— S — Schmalschrift an 

— U — Unterstreichen an 

— 6 — Zeilenabstand auf 1/6 Zoll 

— 7 — Zeilenabstand auf 1/72 Zoll 

— 8 — Zeilenabstand auf 1/8 Zoll 

— 2 — Zeilenabstand auf n/216 Zoll. Beispiel: —2 159 

setzt Zeilenabstand auf 159/216 Zoll. 

— @ — Drucker-Reset 

— OB — Breitschrift aus 

— OD — Doppeldruck aus 

— OF — Fettdruck aus 

— 01 — Indizieren aus 

— OK — Kursivschrift aus 

— ON — unidirektionaler Druck aus 

— OO — Potenzieren aus 

— OS — Schmalschrift aus 

— OU — Unterstreichmodus aus 

Als Kennzeichen für einen neuen Befehl steht ein Pfeil nach 
links (Taste in der linken oberen Ecke der Tastatur). Anstelle 
dieses Pfeiles kann man jedoch auch ein anderes Zeichen 
verwenden (zum Beispiel»!«), indem man in die Speicherzelle 
50020 den ASCII-Wert dieses Zeichens POKEt. Falls Sie 
einen nicht definierten Wert senden, dies wäre zum Bei¬ 
spiel — *, gibt der Computer die Fehlermeldung »PRINTER 
CQ.V.MAND ERROR« aus. 

Hier noch zwei weitere Vorteile des Programms: 

1. Die Befehle sind bis zu 6mal schneller. Um auf Breit¬ 
schrift umzuschalten, benötigt der C 64 mittels CHR$- 
Codes zirka 0,013 Sekunden, mit dem Befehl — B sind es nur 
noch 0,002 Sekunden. 

2. Der Basic-Speicherplatzbedarf ist wesentlich geringer! 
So benötigt das Demoprogramm 1 (Listing 2) im Vergleich zu 
dem in Standard-Basic geschriebenen Demoprogramm 2 
(Listing 3) 66 Bytes weniger, dies sind nur 57% des benötig¬ 
ten Speicherplatzes von Listing 2. 

Ich empfehle Ihnen zum besseren Verständnis, sich einmal 
die Listings der Demoprogramme anzuschauen, um den 
Umgang mit den neuen Befehlen kennenzulernen. 

Achtung: 

Wenn einem Druckerbefehl kein PRINT#-Befehl folgt 
(eigentlich unlogisch, denn warum sollte man einen Befehl an 
den Druckersenden, wenn man gar nichts ausdrucken will?), 
befindet man sich im CMD-Modus. Angenommen, Sie geben 
-F und danach LIST ein. erscheint das Listing auf dem 
Drucker statt auf dem Bildschirm. 

Wollen Sie einen dieser neuen Befehle innerhalb einer 
IF...THEN-Schleife verwenden, so müssen Sie nach THEN 
einen Doppelpunkt setzen (Beispiel: IF A=1 THEN:— S) 
Haben Sie den Basic-Lader eingetippt, können Sie das Pro¬ 
gramm als reinen Maschinencode auf Diskette oder Kassette 
abspeichern; geben Sie dazu folgendes im Direktmodus ein: 
POKE 43,80 
POKE 44,195 
POKE 45,22 
POKE 46,197 

SAVE " DRUCKERBEF.MC ",8,1 (für Diskette) 
oder 

SAVE "DRUCKERBEF.MC",1,1 (für Kassette) 

(Olaf Amblank/gk) 
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Programm : epson29 c350 c516 


c350 

a9 

01 

8d 

44 

c5 

a9 

60 

a0 

d2 

c358 

c-3 

8d 

08 

03 

8c 

09 

03 

60 

22 

c360 

20 

73 

00 

c9 

5f 

f0 

49 

20 

56 

c36B 

79 

00 

4c 

e7 

a7 

a9 

dl 

8d 

lb 

c370 

46 

c5 

4c 

eb 

c4 

a9 

6c 

Bd 

90 

c378 

46 

c5 

4c 

eb 

c4 

a0 

d3 

20 

12 

c380 

e0 

c4 

a9 

00 

4c 

da 

c4 

a0 

ld 

c388 

d3 

20 

e0 

c4 

a9 

01 

4c 

da 

c5 

c390 

c4 

a0 

30 

4c 

be 

c4 

a0 

31 

31 

c398 

4c 

be 

c4 

a0 

32 

4c 

be 

c4 

93 

c3a0 

a9 

33 

8d 

46 

c5 

4c 

eb 

c4 

07 

c3a8 

20 

ca 

c4 

a9 

07 

4c 

da 

c4 

5b 

c3b0 

20 

73 

00 

c9 

32 

f0 

e9 

c9 

a9 

c3b8 

36 

-f 0 

e0 

c9 

37 

f0 

d7 

c9 

c5 

c3c0 

38 

f 0 

ce 

c9 

49 

f 0 

C0 

c9 

10 

c3c8 

4c 

-f 0 

aa 

c9 

52 

f0 

9e 

c9 

2b 

c3d0 

40 

+ 0 

70 

c9 

4f 

f 0 

a6 

c9 

88 

c3d8 

46 

-f0 

6d 

c9 

44 

f 0 

6e 

c9 

44 

c3e0 

45 

f0 

56 

c9 

50 

f0 

57 

c9 

ea 

c3e8 

53 

f 0 

71 

c9 

55 

f 0 

31 

c9 

7e 

c3f 0 

4b 

f 0 

41 

c9 

4e 

f0 

33 

c9 

0a 

c3f 8 

42 

f 0 

lb 

c9 

41 

f 0 

0b 

c9 

0e 

c400 

30 

f 0 

7d 

c9 

47 

f0 

al 

4c 

5c 

c408 

f e 

c4 

20 

73 

00 

20 

9e 

b7 

ca 

c410 

8e 

44 

c5 

4c 

ae 

a7 

a0 

d7 

16 

c41B 

20 

e0 

c4 

a9 

01 

4c 

da 

c4 

76 

c420 

a0 

2d 

20 

e0 

c4 

a9 

01 

4c 

bl 

c428 

da 

c4 

a0 

d5 

20 

60 

c4 

a9 

b7 

c430 

01 

4c 

da 

c4 

a0 

34 

4c 

be 

01 

c438 

c4 

a0 

cd 

4c 

be 

c4 

a0 

d0 

7f 

c440 

4c 

be 

c4 

a0 

40 

4c 

be 

c4 

lb 

c448 

a0 

c5 

4c 

be 

c4 

a0 

c7 

4c 

bf 

c450 

be 

c4 

a0 

c6 

4c 

be 

c4 

a0 

80 

c458 

c8 

4c 

be 

c4 

20 

ca 

c4 

a9 

4d 

c460 

0f 

4c 

da 

c4 

20 

ca 

c4 

a9 

a3 

c468 

12 

4c 

da 

c4 

a0 

d4 

4c 

be 

4f 

c470 

c4 

a0 

35 

4c 

be 

c4 

a0 

d5 

9b 

c478 

20 

e0 

c4 

a9 

00 

4c 

da 

c4 

c6 

c480 

20 

73 

00 

c9 

46 

f 0 

cb 

c9 

42 

c4B8 

4e 

f0 

eb 

c9 

44 

f0 

cB 

c9 

05 

c490 

53 

f 0 

dl 

c9 

4b 

f 0 

da 

c9 

44 

c49B 

55 

f 0 

19 

c9 

42 

f0 

0b 

c9 

50 

c4a0 

4f 

f 0 

c9 

c9 

49 

f0 

c5 

4c 

df 

c4a8 

f e 

c4 

a0 

d7 

20 

e0 

c4 

a9 

9b 

c4b0 

00 

4c 

da 

c4 

a0 

2d 

20 

e0 

db 

c4bB 

c4 

a9 

00 

4c 

da 

c4 

20 

ca 

c4 

c4c0 

c4 

20 

d4 

c4 

98 

a0 

00 

4c 

89 

c4cB 

da 

c4 

ae 

44 

c5 

20 

c9 

ff 

bd 

C4d0 

20 

73 

00 

60 

a9 

lb 

20 

d2 

50 

c4dS 

ff 

60 

20 

d2 

ff 

4c 

ae 

a7 

d6 

c4e0 

20 

ca 

c4 

20 

d4 

c4 

98 

20 

bl 

c4e8 

d2 

ff 

60 

20 

ca 

c4 

20 

9e 

66 

c4f 0 

b7 

20 

d4 

c4 

ad 

46 

c5 

20 

e9 

c4f8 

d2 

ff 

8a 

4c 

da 

c4 

a9 

07 

7e 

c500 

85 

22 

a9 

c5 

4c 

45 

a4 

50 

db 

c508 

52 

49 

4e 

54 

45 

52 

20 

43 

0b 

c510 

4+ 

4d 

4d 

41 

4e 

c4 

64 

ff 

le 


Listing 1. 29 Druckerbefehle. Bitte mit dem MSE auf 
Seite 8 eingeben. 


ilÖ'Hj* 


1 REM *•«****»»»*■**•*»******»*****•»*«»*** <132> 
3 REM ** DEMO 2 - NORMALE CHRS-CODE *»* <155> 
5 REM ********************************* <136> 
10 : <242> 
100 OPEN 1,16:REM »DRUCKERKANAL OEFFNEN* <131> 
110 PRINT#1,CHR* (27) REM «FETTDRUCK A 

N* <177> 
120 PRINT#1,CHR$(27REM «DOPPELDRUCK 

AN* <064> 
125 PRINT#1,CHRS(27);CHR*(10B)jCHRSdB);:R 

EM «LINKEN RAND AUF 10 SETZEN* <130> 
130 PRINTS1,"X"; <213> 
135 PRINTttl , CHR* (27) ; ; CHR* (0) ;: REM «POT 

EI ZIEREN AN* <234> 
140 PRINT#1,“2"; <085> 
150 PRINT#1,CHR* <271:"X"::REM «POTENZIEREN 

AUS* <037> 
160 PRINT#1,"=256“ <034> 


© B4'er 

Listing 3. Demo mit normalen Druckerbefehlen 


1 REM *******««******«**»**»****«*»**** <132> 
3 REM »* DEMO 1 - MIT NEUEN BEFEHLEN ** <146> 
5 REM ***«*»**«»******«***««*«*»**»«»*» <136> 
10 : <242> 
100 OPEN 1,16:REM »OEFFNET DRUCKERKANAL <098> 
110 «-F: REM «FETTDRUCK AN» <135> 
120 <-D: REM »DOPPELDRUCK AN» <045> 


125 H_ 10:REM »LINKEN RAND AUF 10 EINSTELLE 
N* 

130 PRINT#1,“X“; 

135 K): REM »POTENZIEREN AN* 

140 PRINT#1,“2"; 

150 M3Q:REM »POTENZIEREN AUS* 

160 PRINT#1,"=256" 

© 64'e»- 

Listing 2. Demo mit Druckerkurzbefehlen 

Mit dem 
Drucker 
sprechen 

Mit sinnvollen Kurzbefehlen erleich¬ 
tert PROS V2.1 nicht nur die Arbeit mit 
dem Commodore 64 und dem Drucker 
MPS 802 ganz erheblich, es hält auch 
noch ein paar andere, ganz besondere 
Leckerbissen bereit. Und dabei arbei¬ 
tet es sogar mit dem DOS V5.1 zu¬ 
sammen. 

OPEN 1,4,7:CMD 1:LIST und dann PRINT#1:CLOSE 1, das 
ist es, was der gequälte Druckerbesitzer eingeben muß, bloß 
um ein paar eingegebene Basic-Programmzeilen schwarz auf 
weiß in den Händen halten zu können. Und da diese Eingabe 
nur im Direktmodus ohne weiteres möglich ist, fällt die end¬ 
lose Tipperei jedesmal von neuem an. 

Das hat jetzt ein Ende! Das PROS V2.1 nämlich bietet 
MPS 802-Benutzern für solch umfangreiche Befehlssequen¬ 
zen sehr einfache Abkürzungen an. Aber auch Besitzer ande¬ 
rer Drucker, besonders des MPS 801, sollten ruhig weiterle- 
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sen. Denn wenn das Programm Anklang findet, ist eine 
baldige Entwicklung eines Zwillings für diese Drucker nicht 
auszuschließen. 

Das Format der PROS-Befehle dürfte Floppy-Besitzern in 
ähnlicher Form bereits vom DOS V5.1 auf der Demo-Diskette 
bekannt sein. Sie alle bestehen lediglich aus dem Pfund- 
Symbol (oben rechts, die dritte Taste) und einem weiteren 
Zeichen. Das oben genannte Listen sähe mit dem PROS zum 
Beispiel ganz einfach so aus: 

£ + (Pfund) und (Plus) 

um die Ausgabe auf den Drucker zu lenken, 

LIST 

um das Programm zu listen und 

£ — (Pfund) und (Minus) 

um die Ausgabe wieder auf den Bildschirm zu holen. 

Dem LIST-Befehl können Sie selbstverständlich auch 
Zeilenangaben beifügen, ganz wie Sie es bisher gewohnt 
waren. 

Außer der normalen Ausgabeumleitung besteht noch die 
, Möglichkeit, den Ausdruck zu formatieren. In der vorliegen¬ 
den Version ist ein 40 Zeichen breites Ausgabefeld in Papier¬ 
mitte eingestellt. Dieses Format ist zum Beispiel beim Aus¬ 
druck von Disk-Directoriesunddisassemblierten Maschinen¬ 
programmen sehr nützlich. Wie Sie die entsprechenden Para¬ 
meter im PROS bereits bei der Eingabe ändern können, lesen 
Sie bitte weiter hinten. 

Die Ausgabebefehle sind natürlich längst noch nicht alles, 
was das PROS zu bieten hat. Die Befehlsübersicht informiert 
Sie über die Einsatzmöglichkeiten der restlichen zehn PROS- 
Befehle. 

Doch ich sprach eingangs von einigen besonderen Lecker¬ 
bissen. Ich habe nämlich bei der Erstellung des Programms 
die Gelegenheit beim Schopfe ergriffen, noch einige andere 
Unbequemlichkeiten aus dem Weg zu räumen. So stört es 
zum Beispiel oft genug, daß beim Commodore 64 auf den Ein¬ 
bau einer Escape-Taste verzichtet wurde. Im PROS wird des¬ 
halb die Commodore-Taste zusätzlich mit dieser Funktion 
belegt, ohne dadurch in sonstigen Funktionen eingeschränkt 
zu werden. 

Außerdem bekamen noch die beiden Funktionstasten Fl 
und F3 einen Auftrag zugewiesen: die Stop-Funktion. Wenn 
Sie in Zukunft einen ganz bestimmten Teil Ihres Basic- 
Programms suchen, sind Sie nicht mehr auf die CTRL-Taste 
angewiesen, um den LIST-Befehl zu verlangsamen. Sie brau¬ 
chen nur Fl zu drücken und schon »schläft« der Computer. 
Erwecken Sie ihn dann mit der F3-Taste zu neuem Leben, so 
setzt er seine Arbeit genau dort fort, wo er sie zuvor unter¬ 
brochen hat. 

Die Funktion dieser beiden Routinen beruht auf dem »Ver¬ 
biegen« des Interrupt-Vektors in der Zeropage (Adresse 
788/789). Bei Betätigung der Tasten RUN/STOP-RESTORE 
wird dieser Vektor jedoch automatisch wieder mit seinen 
Ursprungswerten versehen, das heißt die beiden Funktionen 
sind nicht mehr ohne weiteres verfügbar. Um Ihnen nun einen 
Neuaufruf des PROS (SYS 51555) zu ersparen, kann mit Hilfe 
von [Pfund] [Pfund] [Return] der entsprechende Programm¬ 
teil neu aktiviert werden. 

Ebenfalls neu aktiviert werden dabei der Kleinschriftmodus 
und die Repeat-Funktion für alle Tasten. Wollen Sie auf eine 
der beschriebenen Funktionen von vornherein verzichten, 
finden Sie auch hier die notwendigen Angaben zur Änderung 
weiter hinten. 

Das Funktionsprinzip der eigentlichen PROS-Befehle 
basiert auf einer Veränderung des Vektors, der auf den 
Anfang jener Schleife zeigt, die einen Basic-Befehl holt und 
ausführt (Speicherstellen 776/777). Wann immer der Com¬ 
puter eine Basic-Zeile liest, im Programm oder im Direktmo¬ 
dus nach Drücken der Return-Taste, wird er nun zunächst prü¬ 
fen, ob das jeweils gelesene Zeichen ein Pfundzeichen ist. Ist 


es das nicht, so wird der Prüfvorgang in der normalen Basic- 
Befehlstabelle fortgesetzt und gegebenenfalls der entspre¬ 
chende Basic-Befehl ausgeführt. War das Zeichen hingegen 
tatsächlich ein »Pfund«, so wird jetzt in die PROS- 
Befehlstabelle gesprungen, um anhand des zweiten Zei¬ 
chens den richtigen PROS-Befehl herauszusuchen. 

Die Arbeitsgeschwindigkeit des Computers wird also kaum 
verringert, denn zunächst wird ja nur auf ein Zeichen mehr als 
üblich geprüft. Mit den zusätzlichen Befehlscodes wird erst 
verglichen, wenn feststeht, daß das PROS tatsächlich ange¬ 
sprochen werden soll. 

Für die Abfragetechnik diente mir übrigens der Artikel 
»Maschinenprogramme auf Tastendruck« von P. Fleig in der 
64'er, Ausgabe 12/84, Seite 80, als nützliche Vorlage. 

Kommen wir nun zur Speicherbelegung des PROS V2.1. 
Es belegt die 648 Bytes von $C963 (dez. 51555) bis ein¬ 
schließlich SCBEA (dez. 52202). Daß ich genau diesen 
Speicherplatz gewählt habe, hat mehrere Gründe: 

Erstens läßt das PROS so mehr als dreiviertel des Maschi¬ 
nenspeichers ($C000 - SCFFF) zusammenhängend frei. 

Zweitens ist die Startadresse (51555) beim SYS-Aufruf 
denkbar leicht und entsprechend schnell einzutippen. 

Und drittens beträgt der Abstand zum DOS 5.1, das sich ja 
bei Floppy-Benutzern großer Beliebtheit erfreut, nur genau 
22 Bytes. So lassen sich das PROS, das DOS und sogar 
noch ein weiteres Programm, zum Beispiel das (verscho¬ 
bene) UNNEW (siehe D. Kossmann: Die Ebenen des Abstur¬ 
zes, 64’er, Ausgabe 11/84, Seite 92), mit Hilfe eines Maschi¬ 
nensprachemonitors hintereinander auf Diskette abspei¬ 
chern und später auch zusammen wieder laden, ohne viel 
Speicherplatz zu verschwenden. 

Um ein solches Kompaktprogramm noch besser nutzen zu 
können, enthält das PROS noch ein weiteres Extra: Die Spei¬ 
cher-allen $C96D-C96F (MSE-Listing: zweite Zeile, dritte 
bis fünfte Zahl) enthalten die Werte 40, 70 und 09. Sie bewir¬ 
ken lediglich einen Sprung in die nächste Speicherstelle. Und 
doch liegt genau darin der Sinn dieser drei Bytes: Wenn Sie 
sie nämlich durch die Werte 20, 00 und CC ersetzen, wird 
beim Aufruf des PROS mit SYS 51555 das DOS (das Sie ja 
gleich mitgeladen haben) von hier aus mit aufgerufen. Sie 
sparen sich durch diese kleine Änderung also jedesmal den 
Aufruf des DOS. 

Das PROS besteht aus zwei Teilen. Im ersten Abschnitt, 
das ist der, welcher beim Aufruf angesprungen wird, werden 
die erwähnten Vektoren in der notwendigen Weise geändert. 
Die ebenfalls bereits angesprochenen Interrupt-Routinen 
werden aktiviert und das Titelbild wird auf den Bildschirm 
gebracht. 


Automatische Grundeinstellung 


Auch mit diesem Titelbild hat es eine besondere Bewandt¬ 
nis: Neben dem Namen des Programmierers, ich spreche von 
mir, enthält es eine Zeile, in der sich bereits einige PROS- 
Befehle, durch Doppelpunkte voneinander getrennt, befin¬ 
den. Wenn sich der Computer nun nach dem Aufruf mit 
»READY« wieder meldet, befindet sich der Cursor genau in 
dieser Zeile. Sie brauchen also nur noch »RETURN« zu 
drücken und schon haben Sie ein paar notwendige Grundein¬ 
stellungen für den Drucker getroffen. 

Diese Grundbefehle sind im einzelnen folgende: 

1. Drucker in Grundstellung setzen 

2. Fehlermeldungen des Druckers ermöglichen 

3. zu druckende Zeilen pro Seite festlegen und 

4. Seitenaufteilung anschalten. 

Auch hier erhalten Sie weiter unten die notwendigen Infor¬ 
mationen, die für eine Änderung beziehungsweise eine 
Ergänzung der Grundeinstellung notwendig sind. 
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Der zweite Abschnitt des PROS V2.1 beginnt bei SC974 
(dez. 51572). Hier wird zunächst der Befehl geprüft und 
dann zu der entsprechenden Unterroutine gesprungen. 

Das Programmlisting wurde mit Hilfe des MSE erstellt und 
wird mit ihm eingegeben. 

Die Änderungen können mit einem Maschinensprachemo¬ 
nitor, zum Beispiel dem SMON, eingegeben werden. 


Bedienungsanleitung 


1. Aufruf 

Das PROS V2.1 muß absolut geladen werden. Danach 
genügt die folgende Eingabe zum Aufruf: 

NEW [Return] 

SYS 51555 [Return] 

Danach können die Grundeinstellungen durch nochmali¬ 
ges Drücken der Return-Taste aktiviert werden. 

2. Sonderfunktionen 

Durch die Inbetriebnahme des PROS werden gleichzeitig 
einige besondere Funktionen eingeschattet. Diese Funktio¬ 
nen werden durch die Tastenkombination RUN/STOP- 
RESTORE desaktiviert, können aber durch [Pfund] [Pfund] 
[Return] wieder aufgerufen werden. 

Die Funktionen sind im einzelnen folgende: 

Stop-Funktion 

Ein Druck auf die Funktionstaste Fl läßt den Computer 
augenblicklich seine derzeitige Arbeit unterbrechen. 

Durch Betätigen der Taste F3 wird der Arbeitsvorgang an 
der gleichen Stelle fortgesetzt, an der er unterbrochen 
wurde. 

Escape-Taste 6*€R 

Die Commodore-Taste bekommt zusätzlich die Funktion 
einer Escape-Taste zugewiesen. Wird sie gedrückt, so ver¬ 
läßt der Computer den Quote-Modus (Hochkomma-Modus), 
das heißt, innerhalb von Anführungszeichen werden bei 
Benutzung der Cursortasten nicht mehr die Steuerzeichen 
ausgegeben. 

Repeat-Funktion 

Alle Tasten werden mit der Repeat-Funktion ausgestattet. 
Das einer Taste entsprechende Zeichen wird solange immer 
wieder ausgegeben, wie diese Taste gedrückt ist. 

Groß-/Kleinschrift 

Der Groß-/Kleinschriftmodus wird eingeschaltet. 

3. Befehle 

Alle PROS-Befehle beginnen mit dem Pfundzeichen. Dem 
folgt ein weiteres Zeichen und gegebenenfalls ein Parameter 
mit Werten zwischen 1 und 127. 

Als PROS-Befehle werden anerkannt: 

ES, < Parameter > 

Festlegen des Zeilenabstandes. Drei Schritte entsprechen 
einer Punktbreite. 

EP, < Parameter > 

Festlegen der zu druckenden Zeilen pro Seite. Europäische 
Norm für Endlospapier: 66 Zeilen. Amerikanische Norm: 60 
Zeilen. 

Bei verändertem Zeilenabstand muß auch die Zahl der Zei¬ 
len pro Seite geändert werden, um eine saubere Seitenauf¬ 
teilung zu erreichen. Es bieten sich dabei folgende Kombina¬ 
tionen an: 

S24 - P102; S27 - P90; S32 - P75 
S36 - P66 (Grundstellung) 

S48 - P48; S54 - P42; S72 - P36 
(bezogen auf die europäische Norm) 

£(, £), [runde Klammer auf beziehungsweise zu] 
Seitenaufteilung an- oder ausschalten. Bei angeschalteter 
Seitenaufteilung wird die festgelegte Zahl der Zeilen pro 


Seite gedruckt. Dann erfolgt ein Zeilenvorschub von sechs 
Zeilen und der Druck wird auf der nächsten Seite fortgesetzt. 
£[ ,£ ] .[eckige Klammer auf beziehungsweise zu] 
Fehlermeldungen des Druckers ermöglichen beziehungs¬ 
weise unterdrücken (Grundstellung). 

£+, [Plus] 

Ausgabe auf den Drucker lenken. Dieser Befehl entspricht in 
Basic der Befehlsfolge 
OPEN 1,4,7:CMD 1 
£F 

Formatierte Ausgabe auf den Drucker lenken. In der Grund¬ 
version des PROS V2.1 ist ein 48 Zeichen breites Ausgabe¬ 
feld in der Papiermitte, wie es zum Ausdruck von Disk- 
Direktories und disassemblierten Maschinenprogrammen 
nützlich ist. 

Achtung: Soll der Ausdruck mit Hilfe eines Maschinen¬ 
sprachemonitors erfolgen, empfiehlt es sich, vorher die Aus¬ 
gabe von Fehlermeldungen zu unterdrücken, da unter 
Umständen der Ausgabeabschluß nicht korrekt erfolgen 
kann. Auf die Arbeitsweise mit dem Drucker hat diese Fehler¬ 
meldung sonst keine Auswirkungen. 

£—, [Minus] 

Aufheben des durch £ + oder £ F erreichten Ausgabe¬ 
modus. Nach diesem Befehl erfolgt die Datenausgabe wie¬ 
der auf dem Bildschirm. 

£ #, (Doppelkreuz) 

Wiederherstellung der Druckergrundstellung (Einschaltzu¬ 
stand). 

££ [Pfund] 

Wiederaktivieren der PROS-Sonderfunktionen. 

£Q 

Verlassen des PROS V2.1. Nach Eingabe dieses Befehls sind 
alle PPn.S-Befehle außer Betrieb. Um wieder mit dem Pro¬ 
gramm aioeiten zu können, muß es mit SYS 51555 neu auf¬ 
gerufen werden. 

Die Sonderfunktionen werden durch diesen Befehl nicht auf¬ 
gehoben. 


Änderungsvorschläge 


1. PROS-Befehlscode [Pfund] ändern 

Sollen die PROS-Befehle mit einem anderen Zeichen als 
dem »Pfund« beginnen, so muß der ASCII-Code des ge¬ 
wünschten Zeichens in der Speicherstelle SC978 (dez. 
51576) stehen. In der Normalversion lautet dieser Wert $5C 
(dez. 92). 

2. Änderung beziehungsweise Ergänzung der Grundbe¬ 
fehle in der Titelseite 

Die Grundbefehle befinden sich in den Speicherstellen 
SCA58 - $CA7c (dez. 51800 - 51836). Die Befehle müssen 
als hexadezimale ASCII-Codes eingegeben werden. Der 
Code für das Pfundzeichen lautet $5C (92). 

3. Ausschalten der Kleinschrift 

Um beim PROS-Aufruf den Großschriftmodus beizubehal¬ 
ten, müssen die Bytes SCA90 - $CA95 mit dem Wert $EA 
(Befehlscode für NOP) aufgefüllt werden. 

Um auch im Ausgabemodus (PROS-Befehl [Pfund] und 
[Plus]) im Großschriftmodus zu bleiben, muß die Speicher¬ 
stelle $CBA5 (dez. 52133) statt $07 den Wert $00 erhalten. 

4. Ausschalten der Repeatfunktion für alle Tasten 

Um diesen Effekt zu vermeiden, sind die Bytes $CA8B - 
$CA8F mit dem Wert $EA aufzufüllen. 

5. Ausschalten der Stop-Funktion und der Escape-Taste 

Die entsprechenden Routinen lassen sich umgehen, 
indem in den Speicherstellen $C9E7 (dez. 51687) und 
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SCB9F(dez, 52127)jeweilsderWert$7Fdurch$8B ersetzt 
wird. 

Der Bereich $CA7F - SCA8A (dez. 51839 - 51850) wird 
dadurch übersprungen und kann zum Beispiel für individuelle 
PROS-Erweiterungen als Speicherplatz dienen. 

6. Änderung der Tastenbelegung der Stop-Funktion 

Um die Tastenbelegung für die Stop-Funktion (normaler¬ 
weise Fl und F3) zu ändern, müssen die Tastaturcodes der 
gewünschten Tasten in die Speicherstellen SCA9A (statt 
Fl-Taste) und SCAB3 (statt F3-Taste) geschrieben werden. 
Die Dezimalwerte der Adresse: 51866 und 51891. 

7. Escape-Taste verlegen 

In der PROS V2.1 Normalversion versieht die Commodore- 
Taste zusätzlich den Dienst einer Escape-Taste. Ersatzweise 
können auch die Taste [CTRL] oder [Pfeil nach links] mit die¬ 
ser Aufgabe betraut werden. Dazu muß die Stelle $CABB den 
Wert SFB (dez. 251) beziehungsweise $FD (dez. 253) 
bekommen. 

8. Änderung der Gerätenummer 

Das PROS V2.1 kann der Gerätenummer des benutzten 
Druckers angepaßt werden, indem der neue Wert in die Stelle 
SCACE (dez. 51918) geschrieben wird. 

9. Verändern des formatierten Ausgabefeldes 

Das in der Normalversion festgelegte formatierte Ausgabe¬ 
feld (40 Zeichen breit in Papiermitte) kann wie folgt verändert 
werden: 

Die gewünschte Breite des linken Randes ist in der Spei¬ 
cherstelle SCBC8 (dez. 52168), die des Ausgabefeldes in 
SCBD2 (dez. 52178) abzulegen. 

Hinweis: Auf der Leserservice-Diskette befindet sich ein¬ 
mal das PROS V2.1 selbst und zusätzlich mit integriertem 
DOS V5.1 und dem Programm UNNEW. Aufruf von UNNEW: 
SYS 53166. 

(Peter T. Schmidt/gk) 
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Listing PROS V2.1. Bitte beachten Sie die Eingabehilfe 
auf Seite 8. 
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Sprite+Grafik- 
Basic 

Diese für den C 64 geschriebene 
Basic-Erweiterung wurde speziell für 
das Programmieren von Sprites und 
hochauflösender Grafik entwickelt, 
enthält jedoch auch zusätzliche, nicht 
grafikbezogene Befehle. 

Sprite+Grafik-Basic wurde für den Commodore 64 ohne 
besondere Peripherie geschrieben. Das Programm wird mit 
LOAD geladen und mit RUN gestartet. 

»Das für den Commodore 64 geschriebene Sprite+Grafik- 
Basic ist eine Basic-Erweiterung, die speziell das Program¬ 
mieren von Sprites und hochauflösender Grafik unterstützt. 
Selbstverständlich werden auch Befehle zum Editieren der 
Programme und die nötigsten strukturierenden Befehle zur 
Verfügung gestellt. 

Sprite+Grafik-Basic erweitert das bescheidene V2-Basic 
um mehr als 100 Befehle. Davon sind 32 Befehle zur Pro¬ 
grammierung der Sprites vorgesehen. 

Außer den üblichen Parametern der Spriteprogrammierung 
können Sie die Sprites spiegeln, drehen und noch vieles 
mehr. Durch die vielseitigen Befehle zur Definition der Sprite- 
matrix kann selbst der Anfänger ohne einen zusätzlichen 
Spriteeditor hervorragende Sprites erstellen. Die Spritema- 
trixblöcke — es stehen maximal 144 davon zur Verfügung — 
benötigen natürlich keinen Basic-Programmspeicher. 

Auch zum Erstellen von ansprechenden Bildschirmmasken 
bietet Sprite+Grafik-Basic 14 neue Befehle. Es ist zum Bei¬ 
spiel möglich, den Bildschirm in alle vier Richtungen zu Scrol¬ 
len oder bestimmte Flächen mit Zeichen zu füllen. 

Für die Programmierung von hochauflösender Grafik und 
Multicolorgrafik stehen natürlich die Befehle, um Punkte und 
Linien zu setzen zur Verfügung. Darüber hinaus können Ellip¬ 
sen, Ellipsenbogen, Radien, Rechtecke und Blöcke mit einfa¬ 
chen Befehlen definiert werden. Eine der Besonderheiten 
von Sprite+Grafik-Basic ist der GPRINT-Befehl, der es 
ermöglicht — annähernd so komfortabel wie der PRINT- 
Befehl der Blockgrafik — Text in die Grafik einzubauen. Bei 
jedem dieser Befehle kann natürlich gewählt werden, ob ein 
Punkt gesetzt, gelöscht oder invertiert werden soll. 

Nach dem Ausschalten der Grafik und dem Wiederein¬ 
schalten bleibt diese vollständig erhalten. Hierdurch kann sie 
auch im ausgeschalteten Zustand durch zwei Befehle abge¬ 
speichert oder geladen werden. 

Über einen SYS-Befehl und wenige POKEs läßt sich sogar 
ein Textfenster in die Grafik einblenden. 

Insgesamt bietet Sprite+Grafik-Basic 16 High-Resolution- 
Befehle. Diese Grafikmöglichkeiten werden durch das Erzeu¬ 
gen von blinkenden Zeichen oder durch Blinken des Rah¬ 
mens zusätzlich verstärkt. Die Programmierung von Sprites 
und Grafik läßt also kaum Wünsche offen. 

Damit diese Sprite+Grafik-Programmierung möglichst ein¬ 
fach und übersichtlich wird, gibt es in Sprite+Grafik-Basic 
knapp zehn Befehle zur Strukturierung der Programme. Dies 
sind alle üblichen Befehle wie zum Beispiel REPEAT... UNTIL, 
CASE ... THEN ... ELSE und den mit Labein arbeitenden 
Sprungbefehlen. Außerdem existiert ein Befehl, mit dem Sie 
die letzte IF-Bedingung noch einmal abfragen können. 
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Um all diese Befehle platzsparend und einfach in ein Pro¬ 
gramm einbauen zu können, stehen etwa 20 weitere Befehle 
zur Verfügung. Man kann damit sofort editieren oder auch 
nach Zeichenketten und Befehlen im Programm suchen. Es 
ist ebenfalls möglich, ein Programm zeilenweise abzuspei¬ 
chern oder ein Programm nachzuladen. 

Zur Vereinfachung der Programmierung können die Funk¬ 
tionstasten mit beliebigen Zeichenketten belegt werden. 

Falls ein Programm nicht funktioniert, findet man mit dem 
TRACE-Modus sehr leicht den Fehler. Dieser Modus zeigt 
immer die aktuelle Zeile an — natürlich auch in High- 
Resolution-Grafik. Um Fehler bei den neuen Befehlen besser 
zu verstehen, sind noch einige neue Fehlermeldungen imple¬ 
mentiert. Außerdem wird die fehlerhafte Zeile angezeigt und 
die fehlerhafte Stelle markiert. 


Blockgrafikbefehle (40x25 Auflösung) 


Syntax : AT x , y , string 
Parameter : x — x-Koordinate (0 bis 39) 

y — y-Koordinate (0 bis 24) 

string — Zeichenkette 

Funktion : Gibt einen String an der angegebenen Bild¬ 
schirmposition aus. 

Syntax : SET c , f, x , y 
Parameter : x — x-Koordinate (0 bis 39) 

y — y-Koordinate (0 bis 24) 

c — Bildschirmcode des Zeichens 

(0 bis 255) 

f — Farbe (0 bis 15) 

Für-' jn : Gibt ein Zeichen an der angegebenen Bild¬ 
schirmposition aus. 

Syntax : FSET f, x , y 

Parameter : x — x-Koordinate (0 bis 39) 

y — y-Koordinate (0 bis 24) 

f — Farbe (0 bis 15) 

Funktion : Setzt die Farbe an der angegebenen Bild¬ 
schirmposition. 

Syntax : ZSET c , x , y 

Parameter : x — x-Koordinate (0 bis 39) 

y — y-Koordinate (0 bis 24) 

c — Bildschirmcode des Zeichens 

(0 bis 255) 

Funktion : Gibt ein Zeichen an der angegebenen Bild¬ 
schirmposition aus. 

Syntax : COLOUR rf, hf 

Parameter : rf — Rahmenfarbe (0 bis 15) 

hf — Hintergrundfarbe (0 bis 15) 
Funktion : Setzt die Farben. 

Syntax : CURSOR f 

Parameter : f — Farbe (0 bis 15) 

Funktion : Setzt die Zeichenfarbe. 

Syntax : FILL xl , yl , x2 , y2 , c , f 

Parameter : xl — x-Koordinate der linken oberen 

Ecke (0 bis 39) 

yl — y-Koordinate der linken oberen 
Ecke (0 bis 24) 

x2 — x-Koordinate der rechten unteren 
Ecke (0 bis 39) 

y2 — y-Koordinate der rechten unteren 
Ecke (0 bis 24) 


ie.de 

net 






Basic-Erweiterung 



c — Bildschirmcode des Zeichens 

Parameter 

adresse — Anfangsadresse des Spriteblocks 


(0 bis 255) 




f — Farbe (0 bis 15) 


32768+64* Spriteblock 

Funktion 

Ausfüllen einer Fläche mit Zeichen in einer 

Funktion 

Löscht einen Spriteblock. 


bestimmten Farbe. 


Es stehen Block 16 bis 31, und wenn Sie 
keine hochauflösende Grafik bearbeiten, 

Syntax 

ZFILL xl , yl , x2 , y2 , c 


auch noch Block 128 bis 255 zur Verfügung. 

Parameter 

wie »FILL« 



Funktion 

Ausfüllen einer Fläche mit bestimmten 

Syntax 

SRVS adresse 


Zeichen. 

Parameter 

wie »SCLR« 



Funktion 

Invertiert einen Spriteblock. 

Syntax 

INV xl , yl , x2 , y2 



Parameter 

wie »FILL« 

Syntax 

BMOVE adressel , adresse2 

Funktion 

Invertiert alle Zeichen im angegebenen Bild- 

Parameter 

wie »SCLR« 


schirmbereich. 

Funktion 

Kopiert Spriteblock 1 in Spriteblock 2. 

Syntax 

FFILL xl , yl , x2 , y2 

Syntax 

SON sn 

Parameter 

wie »FILL« 

Parameter 

sn — Spritenummer (0 bis 7) 

Funktion 

Einfärben einer Fläche mit der angegebenen 

Funktion 

Schaltet ein Sprite ein. 


Farbe. 

Syntax 

SOFF sn 

Syntax 

UP/DOWN/LEFT/RIGHT xl , yl , x2 , y2 

Parameter 

sn — Spritenummer (0 bis 7) 

Parameter 

wie »FILL« 

Funktion 

Schaltet ein Sprite aus. 

Funktion 

Scrollt den angegebenen Bereich. 



Beispiel 

LEFT 10,10,20,20 

Syntax 

SBLOCK sn , block 


Der angegebene Bereich wird nach links 

Parameter 

sn — Spritenummer (0 bis 7) 


gescrollt. 

Funktion 

block — Spriteblock (0 bis 255) 

Gibt an, aus welchem Block das Sprite seine 
Matrix erhält. 


Flashbefehle 




Syntax 

SMODE sn , modus 



Parameter 

sn — Spritenummer (0 bis 7) 

Syntax 

VEC 


modus = 0 — Multicolorsprite 

Parameter 

keine 


= 1 — Normalsprite 

Funktion 

Schaltet auf die neue Interruptroutine um. 

or Funkte 

Einem Sprite wird sein Darstellungsmodus 




zugewiesen. 

Syntax 

OLDVEC 



Parameter 

keine 

Syntax 

SCOLOUR sn , fl 

Funktion 

Schaltet den alten Interrupt wieder ein. 

Parameter 

sn — Spritenummer (0 bis 7) 

fl — Farbe (0 bis 15) 

Syntax 

B/G/BG FLASH fl , f2 , speed 

Funktion 

Einem Sprite wird die Farbe zugewiesen. 

Parameter 

fl — Farbe 1 (0 bis 15) 

f2 — Farbe 2 (0 bis 15) 

Syntax 

MCOLOUR f2 , f3 


speed — Blinkgeschwindigkeit in 1/10 

Parameter 

f2,f3 — Farben (0 bis 15) 


Sekunden (1 bis 255) 

Funktion 

Allen Multicolorsprites werden die restlichen 

Funktion 

Rahmen und/oder Hintergrund wechseln 
ständig zwischen den angegebenen Farben. 


Farben zugewiesen. 

Beispiele 

BFLASH 0,1,1 

Syntax 

SPRIOR sn , modus 


Rahmen wechselt jede 1/10 Sekunde 

Parameter 

sn — Spritenummer (0 bis 7) 


zwischen Schwarz und Weiß. 


modus = 0 — Priorität 


BGFLASH 0,1,2 


= 1 — keine Priorität 


Rahmen und Hintergrund wechseln jede 

Funktion 

Es wird festgelegt, ob das Sprite vor dem 


zweite 1/10 Sekunde zwischen Schwarz und 


Hintergrund die Priorität hat oder nicht. 


Weiß. 

Syntax 

X/Y EXP sn , modus 

Syntax 


Parameter 

sn — Spritenummer (0 bis 7) 

FOFF 


modus = 0 — Normalgröße 

Parameter 

keine 


= 1 — expandiert 

Funktion 

B/G/BG FLASH wird ausgeschaltet. 

Funktion 

Es wird festgelegt, ob das Sprite normal oder 
doppelt so breit dargestellt wird. 

Syntax 

FLASH fl , f2 , f3 

Beispiel 

XEXP 4,1 

Parameter 

f1,f2,f3 — Farben (0 bis 15) 

Sprite 4 wird in x-Richtung 

Funktion 

Alle Zeichen, die die Farbe fl, f2 oder f3 
haben, werden ständig invertiert. 


doppelt so breit dargestellt. 

Syntax 

OFF 

Syntax 

SSET sn , x , y 

Parameter 

sn — Spritenummer (0 bis 7) 

Parameter 

keine 


x — x-Koordinate (0 bis 511) 

Funktion 

FLASH wird ausgeschaltet. 

Funktion 

y — y-Koordinate (0 bis 255) 

Setzt das angegebene Sprite an die x/y- 

Syntax 

SCLR adresse 


Position. 
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Syntax : 

S UP/DOWN/LEFT/RIGHT sn , sw 


xl.yl — Koordinaten der Ausgangs- 



Parameter : 

sn — Spritenummer (0 bis 7) 


Position, wie »SSET« 

m 



sw — Schrittweite (0 bis 255) 


x2,y2 — Koordinaten des Zielpunkts, wie 



Funktion : 

Bewegt das Sprite um sw Pixels in die 


»SSET« 




angegebene Richtung. 


sw — Schrittweite (1 bis 255) 



Beispiele : 

SUP 2,100 


s — Geschwindigkeit (1 bis 255) 




Bewegt Sprite 2 um 100 Bildpunkte nach 

Funktion 

Bewegt ein Sprite von der Ausgangsposition 




oben. 


zum Zielpunkt in sw Teilschritten. 




SRIGHT 5,20 






Bewegt Sprite 5 um 20 Bildpunkte nach 

Syntax 

MOVETO sn , x , y , sw, s 




rechts. 

Parameter 

wie »SMOVE« 





Funktion 

Bewegt ein Sprite von seiner derzeitigen 



Syntax 

SPLOT ad , x , y , modus , zm 


Position zur angegebenen x/y-Koordinate. 



Parameter : 

ad — wie »SCLR« 






x — x-Koordinate 

Syntax 

R RIGHT/LEFT/UP/DOWN ad 




High-Resolution : (0 bis 23) 

Parameter 

wie »SCLR« 




Multicolor : (0 bis 11) 

Funktion 

Scrollt die Spritematrix des angegebenen 




y — y-Koordinate (0 bis 20) 


Blocks. 




modus = 0 — Normalsprite 

Beispiel 

RÜP 40960 




= 1 — Multicolorsprite 


Scrollt die Matrix des Blocks 128 nach oben. 




zm — Zeichenmodus 






High- 

Syntax 

XMIR modus, ad 




Resolution: 0 löschen 

Parameter 

modus = 0 — Normalsprite 




1 setzen 


= 1 — Multicolorsprite 




2 invertieren 


ad — wie »SCLR« 




Multicolor: 0 löschen 

Funktion 

Spiegelt die Matrix des angegebenen Sprite- 




1 fl setzen 


blocks in x-Richtung. 




2 f2 setzen 






3 f3 setzen 

Syntax 

YMIRad 



Funktion : 

Setzt/löscht/invertiert einen Punkt in einem 

Parameter 

wie »SCLR« 




Speicherblock. 

Funktion 

Spiegelt die Matrix des angegebenen Sprite- 






blocks in y-Richtung. 



Syntax : 

DESIGN ad , y , modus , String 





Parameter : 

ad — wie »SCLR« 

Syntax 

TURN modus , ad 




y — y-Koordinate (0 bis 20) Pafa.water 

wie »SCLR« und »XMIR« 




modus — wie »SPLOT« 

Funktion 

Dreht die Matrix des angegebenen Sprite- 




string — Spritematrixzeile 


blocks um 180 Grad. 




High- 






Resolution: 24 Zeichen 

Syntax 

ROTR ad 




A setzen 

Parameter 

wie »SCLR« 




. löschen 

Funktion 

Dreht die Matrix des angegebenen Sprite- 




B keine Veränderung 


blocks um 90 Grad nach rechts. 




1 invertieren 

Hinweis 

Arbeitet nicht bei Multicolorsprites. 




Multicolor: 12 Zeichen 






A fl setzen 

Syntax 

ROTL ad 




B f2 setzen 

Parameter 

wie »SCLR« 




C f3 setzen 

Funktion 

Dreht die Matrix des angegebenen Sprite- 




D keine Veränderung 


blocks um 90 Grad nach links. 




1 invertieren 

Hinweis 

Arbeitet nicht bei Multicolorsprites. 




. löschen 





Funktion : 

Definiert die Spritematrixzeile eines Sprite- 

Syntax 

DETECT modus 




blockes. 

Parameter 

modus = 0 — löschen des Sprite-Sprite- 



Beispiele : 

DESIGN 40960,0,1, "ABACALIIBC" 


Kollisionsregisters 




Definiert die Spritezeile 0 des Blockes 128 


= 1 — löschen des Sprite- 




mit "ABACAI..ABI." 


Hintergrund- 




A$= " AAAABBBBAAAAIIII..ABI." 


Kollisionsregisters 




DESIGN 40960, 6 , 0,A$ 

Funktion 

Setzt die Kollisionsregister zurück. 




Definiert die Spritezeile 5 des Blockes 128 






mit dem String A$. 


Befehle für die 



Syntax : 

SCORD sn , vl , v2 


hochauflösende Grafik 



Parameter : 

sn — Spritenummer (0 bis 7) 






v1,v2 — nichtindizierte, reelle Variable 





Funktion : 

Übergibt die x-Koordinate des angegebenen 

Hinweise 

: Koordinatenangaben 




Sprites in die Variable vl und die 


High- 




y-Koordinate in v2. 


Resolution: x-Koordinaten (0 bis 319) 






y-Koordinaten (0 bis 199) 



Syntax 

SMOVE sn , xl , yl , x2 , y2 , sw , s 


Multicolor: x-Koordinaten (0 bis 159) 



Parameter : 

sn — Spritenummer (0 bis 7) 


y-Koordinaten (0 bis 199) 
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Syntax : 
Parameter : 

Funktion 


Syntax : 
Parameter: 
Funktion 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax 


Funktion 


Syntax 

Parameter 

Funktion 

Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax : 
Parameter : 




Koordinatenangaben, die über den Bereich 
hinausgehen, werden ignoriert. 

Zeichenmodus zm 

High- 

Resolution: 0 — löschen 

1 — setzen 

2 — invertieren 
Multicolor: 0 — löschen 

1 — Farbe 1 setzen 

2 — Farbe 2 setzen 

3 — Farbe 3 setzen 

4 — invertieren 

HRG pf, hf 

pf — Punktfarbe (0 bis 15) 
hf — Hintergrundfarbe (0 bis 15) 
Schaltet die hochauflösende Grafik ein und 
legt die Farben fest. 


Funktion 


Syntax 

Parameter 

Funktion 


Syntax : 
Parameter : 


Funktion : 

Syntax : 
Parameter : 


NRM 

keine 

Schaltet wieder auf normale Blockgrafik um. 
Dabei wird der Bildschirm gelöscht und 
die Hintergrund- und Rahmenfarbe wie bei 
RUN/STOP-RESTORE gesetzt. 

CLS 

keine 

Löscht den Grafikbildschirm und setzt die 
Farben, wie bei »HRG« festgelegt. 


Funktion 

Syntax 

Parameter 

Funktion 


MULTI fl , f2 , f3 

f1,f2,f3 - Farben (0 bis 15) 

Schaltet Multicolormodus ein und setzt-0ie 
drei Farben. 

Syntax : 

MODE zm Parameter : 

zm — Zeichenmodus 

Stellt den Zeichenmodus ein. Er gilt für alle Funktion : 
nachfolgenden Grafikbefehle. 

Hinweis 

High- GCOLOUR pf, hf 
Resolution: Parameter wie bei »HRG« 


Multicolor: GCOLOUR fl , f2 , f3 Syntax 

Parameter wie »MULTI« Parameter : 

Setzt die Farben für alle nachfolgenden Funktion : 

Grafikbefehle. 


PLOT x , y 

x,y — Koordinaten 
Setzt einen Punkt. 

Syntax : 

DRAW x , y Parameter : 

x,y — Koordinaten 

Zieht eine Linie vom zuletzt gesetzten Punkt 

zur neuen Koordinate. Funktion : 

LINE x1.y1.x2, y2 

xl ,y1 ,x2,y2 — Koordinaten 

Zieht eine Linie von der Koordinate xl/yl zur 


Koordinate x2/y2. Syntax 

Parameter 

REC x1.y1.x2, y2 Funktion 

xl.yl — Koordinaten der linken oberen 

Ecke Syntax 

x2,y2 — Koordinaten der rechten unteren Parameter 

Ecke Funktion 


Zeichnet ein Rechteck mit den angegebenen 
Eckpunkten. 

BLOCK x1.y1.x2, y2 
wie »REC« 

Zeichnet ein ausgefülltes Rechteck mit den 
angegebenen Eckpunkten. 

ANGL x , y , rx , ry , w 

x,y — Mittelpunktskoordinaten 

rx — Radius in x-Richtung 

ry — Radius in y-Richtung 

w — Winkel (0 bis 360) 

Zeichnet den Radius einer Ellipse. 

ARC x , y , rx , ry , sw , ew , a 

x,y — Mittelpunktskoordinaten 

rx,ry — wie »ANGL« 

sw — Startwinkel (0 bis 360) 

ew — Endwinkel (0 bis 360) 

a — Winkelabstand der berechneten 

Kreispunkte (0 bis 360) 

Zeichnet einen Ellipsenbogen. 

GPRINT String 

string — Zeichenkette 

Gibt den in string enthaltenen Text auf dem Gra¬ 
fikbildschirm aus. Es kann Schriftgröße, Zei¬ 
chensatz, Farbe und Cursorsteuerung durch 
Steuerzeichen beeinflußt werden. Der Cursor 
ist allerdings nie sichtbar. Er steht ständig an 
der Position des zuletzt ausgegebenen Grafik¬ 
punktes. Die aktuellen Schriftparameter kön¬ 
nen aus Speicherstellen ausgelesen werden 
(Tabelle 1). 

GSAVE gn , name 

gn — Gerätenummer 

name — Namensstring 

Speichert die hochauflösende Grafik ab. Dies 

erfolgt in drei Blöcken. 

Bei allen LOAD/SAVE-Vorgängen werden die 
Schriftparameter von GPRINT zerstört. Das 
Blinken der Floppy-LED ist normal. 

GLOAD gn , name 

wie »GSAVE« 

Lädt eine hochauflösende Grafik. 


Editorbefehle 


FKEY fn , string 

fn — Funktionstastennummer (1 bis 12) 

string — Zeichenkette mit maximal 

20 Zeichen 

Weist einer Funktionstaste eine Zeichenkette 
zu, Die Funktionstasten 9 bis 12 werden über 
die Commodore-Taste erreicht. Der neue Inter¬ 
rupt muß mit »VEC« aktiviert werden. 

DISP 

keine 

Zeigt die Funktionstastenbelegung an. 

PAGE zn 

zn — Zeilennummer 

Listet die 10 Basic-Zeilen nach zn. 
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Basic-Erweiterung 


Syntax 

Parameter 

Funktion 


Syntax 
Parameter : 
Funktion 

Hinweis : 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax 
Parameter : 
Funktion : 


Syntax 

Parameter 

Funktion 

Syntax 

Parameter 

Funktion 


Syntax : 
Parameter : 

Funktion : 

Syntax : 
Parameter : 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax : 
Parameter : 
Funktion : 

Syntax : 
Parameter : 
Funktion : 

Syntax : 
Parameter : 
Funktion : 
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MOVE 

keine 

Die nachfolgenden 10 Zeilen werden aus¬ 
gegeben. 


die Zeichenkette enthalten ist, aus. 

Beispiel : FINDGOTO 

Die Zeilennummern der Zeilen, in denen ein 
GOTO steht, werden ausgegeben. 


BACK 

keine 

Gibt die 10 Zeilen vor den zuletzt ange¬ 
zeigten aus. 

Nach den Befehlen PAGE, MOVE und BACK 
befinden Sie sich im Direktmodus und kön¬ 
nen die Zeilen editieren. 

OLD 

keine 

Ein durch NEW gelöschtes Programm wird 
wieder aktiviert. 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


DUMP 

keine 

Gibt die Inhalte aller Variablen aus und zeigt 
die Funktionsnamen selbstdefinierter 
Funktionen an. Sie werden durch »!« 
gekennzeichnet. 

ARRAY v 

v — Name des Feldes 
Gibt den Inhalt aller Elemente des angegebe¬ 
nen Feldes aus. 

MEM 

keine 

Zeigt die momentane Speicherbelegung an. 


Syntax 

Parameter 

Funktion 

Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


AUTO zn , a 

zn — Zeilennummer 

a — Abstand 

Automatische Zeilenvorgabe. Ist die vorge¬ 
gebene Zeile schon im Programm enthalten, 
färbt sich der Rahmen rot. 

TRACE 

keine 

In der obersten Bildschirmzeile wird die 
aktuelle Programmzeile angezeigt und der 
aktuelle Befehl negativ gekennzeichnet. 
Dieser Befehl wird erst abgearbeitet, wenn 
eine Taste gedrückt wurde. 

RETRACE 

keine 

Schaltet den TRACE-Modus aus. 

ERROR 

keine 

Gibt den zuletzt aufgetretenen Fehler und die 
dazugehörige Zeile aus. 

COLD 

keine 

Startet das Sprite+Grafik-Basic neu. 


MERGE name , gn 6^eR anun^*-; 

wie »GSAVE« 

Hängt ein Programm an das im Speicher 
stehende an. Dabei sollten die Zeilen¬ 
nummern des Programms im Speicher kleiner 
sein als die des geladenen. 


Syntax 

Parameter 

Funktion 


ZSAVE gn , name , zl , z2 

gn.name— wie »GSAVE« 

z1,z2 — Zeilennummern 

Speichert das Programm von Zeilennummer 

zl bis z2 ab. 

ZLOAD z , name , gn 

gn.name— wie »GSAVE« 

z — Zeilennummer 

Lädt ein Programm und fügt es ab der Zeile z 

an. Die Zeilen, die bisher auf z folgten, gehen 

verloren. 

DEL zl , z2 

z1,z2 — Zeilennummern 

Löscht das Programm von Zeilennummer 

zl bis z2. 

HELP 

keine 

Gibt alle Basic V 2.0-Befehle aus. 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Syntax 

Parameter 

Funktion 


Strukturierende Befehle 


: REPEAT:...:UNTIL Bedingung 

: Bedingung — Verzweigungsbedingung 

: Führt die auf REPEAT folgenden Anweisun¬ 
gen so lange durch, bis die Bedingung nach 
UNTIL zutrifft. 

: CASE Bedingung THEN....:ELSE.... 

: bedingung — Verzweigungsbedingung 

: Ist die Bedingung erfüllt, werden die Befehle 
nach THEN abgearbeitet. Ist die Bedingung 
nicht erfüllt, werden die Befehle nach ELSE 
abgearbeitet. 

: AGAIN...:ELSE... 

: keine 

: War die Bedingung bei der letzten CASE- 
Anweisung wahr, so werden die Befehle 
zwischen AGAIN und ELSE abgearbeitet. 
Andernfalls die Befehle nach ELSE. 

; JUMP label 

: label — beliebige Zeichenkette 

: Springt an die durch label gekennzeichnete 
Programmstelle. 


@HELP 

keine 

Gibt alle Sprite+Grafik-Basicbefehle aus. 

FIND Zeichenkette 

zeichenkette — beliebige Zeichen 

Gibt die Zeilennummern der Zeilen, in denen 


Syntax 

Parameter 

Funktion 

Hinweis 


LABEL label 

wie »JUMP« 

Kennzeichnet einen Programmpunkt für den 
Aufruf durch JUMP oder CALL. 

Trifft das Programm ohne JUMP- oder CALL- 
Aufruf auf ein LABEL, wird der nächste 
Befehl gesucht und abgearbeitet. 
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Basic-Erweiterung 


Syntax : 
Parameter : 
Funktion 

CALL label 

wie »JUMP« 

Ruft ein Unterprogramm auf. 

Syntax 

Parameter 

Funktion 

SUBEND 

keine 

Das durch CALL aufgerufene Unterprogramm 
wird wieder verlassen. 

Funktionen 

Syntax 

Parameter 

Funktion 

XCORD (egal) 

egal — ohne Bedeutung 

Holt die x-Koordinate des Cursors. 

Syntax 

Parameter 

Funktion 

YCORD (egal) 

wie »XCORD« 

Holt die y-Koordinate des Cursors. 

Syntax 

Parameter 

Funktion 

CODE (x), y 

x — x-Koordinate (0 bis 39) 

y — y-Koordinate(0 bis 24) 

Holt den Bildschirmcode des Zeichens 
an der x/y-Position. 

Syntax 

Parameter 

Funktion 

FÄRB (x), y 

wie »CODE« 

Holt den Farbcode des Zeichens an der 
x/y-Position. 

Syntax 

Parameter 

Funktion 

STICK (n) 

n = 0 Port 2 

= 1 Port 1 

Holt die Stellung des Joysticks (Tabelle 2). 

Syntax 

CHECK (0)sn , sn 

Parameter : sn — Spritenummern (0 bis 7) 
Funktion : Ergebnis: 

= 1 die beiden Sprites 
kollidieren 

= 0 die beiden Sprites 
kollidieren nicht 


CHECK (1)sn 

Parameter : sn — Spritenummer (0 bis 7) 
Funktion : Ergebnis: 

= 1 das Sprite kollidiert mit 
dem Hintergrund 
= 0 das Sprite kollidiert nicht 
mit dem Hintergrund 

Syntax 

Parameter 

Funktion 

TEST (egal)x , y 

x — x-Koordinate 

y — y-Koordinate 

Prüft, ob ein Punkt in der hochauflösenden 
Grafik gesetzt ist. Das Ergebnis entspricht 
dem Zeichenmodus. 

Besonderheiten 


RUN/STOP-RESTORE-Taste, nachdem TRACE eingegeben 
wurde, ändern. Die Unverträglichkeit des TRACE-Befehls 
und der »Interrupt-Befehle« resultiert aus der Umlenkung des 
Interrupts auf einen Rasterzeileninterrupt beim TRACE- 
Befehl. Dieser Rasterzeileninterrupt sorgt dafür, daß beim 
TRACE-Befehl die obersten drei Zeilen immer in Blockgrafik 
angezeigt werden. 

Aber auch ohne TRACE-Modus kann man den Raster¬ 
zeileninterruptnutzen. Er wird mit SYS 31851 aktiviert. Zuvor 
müssen Sie allerdings in die Speicherstellen 31889 und 
31903 jeweils die Rasterzeile (0 bis 255), in der auf hochauf¬ 
lösende Grafik umgeschaltet wird, POKEn. Außerdem muß 
die Speicherstelle 31929 die Rasterzeile (0 bis 255) ent¬ 
halten, in der wieder auf Textmodus zurückgeschaltet wird. 
Das Ausschalten dieses Rasterzeileninterrupts ist nur durch 
NRM oder RUN/STOP-RESTORE möglich. 

Im TRACE-Modus funktioniert auch der GET-Befehl nicht 
mehr, da die Speicher der zuletzt gedrückten Taste ständig 
gelöscht werden. 

Die Funktion TEST setzt wie alle anderen Grafikbefehle den 
Grafikcursor. Hiermit können Sie also vor jedem GPRINT den 
Grafikcursor an die gewünschte Position setzen. 

Den Befehl @ sollten Sie nicht alleine verwenden. Der 
Computer könnte abstürzen. Das gleiche kann passieren, 
wenn Sie bei Befehlen einen oder mehrere Parameter ver¬ 
gessen. ' 

Wenn ein HiRes-Bild auf Diskette gespeichert wird, blinkt 
die Floppy-LED, da das Programm hauptsächlich für Data-' 
sette geschrieben wurde. Das HiRes-Bild kann z ; wjr späte/ 
wieder geladen werden, jedoch nur in Schwarz-Weiß. Die 
Farb-Informationen sind verloren. 

Fehlermeldungen 

luna*» 

Ist ein Programm beendet oder tritt eine Fehlermeldung 
auf, wird der hochauflösende Grafikmodus ausgeschaltet. 
Bei einem Fehler wird die fehlerhafte Zeile gelistet. Bei den 
meisten Fehlern wird der ungefähre Fehlerpunkt negativ 
(invers) gekennzeichnet. 

Zusätzliche Fehlermeldungen zum Basic V2: 

UNTIL WITHOUT REPEAT 

Tritt auf, wenn der Computer auf UNTIL trifft, ohne daß ein 
REPEAT vorausging. 

LABEL NOT FOUND 

Tritt auf, wenn ein Sprunglabel nicht vorhanden ist. 

SUBEND WITHOUT CALL 

Tritt auf, wenn der Computer auf SUBEND trifft, ohne daß ein 
CALL vorausging. 

ILLEGAL SPRITE NUMBER 

Tritt auf, wenn die Spritenummer sn größer als 7 ist. 

ILLEGAL SPRITE STRING 

Der String des DESIGN-Befehls enthält einen Fehler. 

SPRITE DESIGNING COORDINATE 

Tritt auf, wenn beim SPLOT-Befehl falsche x/y-Koordinaten 

angegeben werden. (Jens Schwarz/ah) 


Beim FILL/ZFILL/FFILL-Befehl muß die linke obere Ecke 
auch wirklich die linke obere Ecke des Rechtecks sein, da 
der Computer sonst unweigerlich »abstürzt«. 

Der TRACE-Befehl verträgt sich leider nicht mit den Befeh¬ 
len, die den Interrupt beeinflussen (VEC. OLCVEC. B/G/BG 
FLASH). Dies läßt sich aber einfach durch Drücken der 


hex.-adr. 

dez.-adr. 

Funktion 

hex.-adr. 

dez.-adr. 

Funktion 

9EAA 

40618 

STICK 

91B7 

37303 

YCORD 

9E52 

40530 

CHECK 

8EB1 

36529 

CODE 

CCDC 

52444 

TEST 

91C0 

37312 

FÄRB 

8EAA 

36522 

XCORD 





Anfangsadressen der Funktionen 
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Basic-Erweiter u ng 


ASCII-Code Tastenkombination Funktion 


1 

CTRL + A 

2 

CTRL + B 

3 

CTRL + C 

4 

CTRL + D 

22 

CTRL + V 

16 

CTRL + P 

15 

CTRL + 0 

21 

CTRL + U 

157 

SHIFT + CRSR Ir 

29 

CRSR Ir 

145 

SHIFT + CRSR ud 

17 

CRSR ud 

19 

HOME 

147 

CLR/HOME 

13 

CTRL + M 

14 

CTRL + N 

142 

keine 

18 

CTRL RVSON 

146 

CTRL RVSOFF 

6 

CTRL + F 

7 

CTRL + G 

10 

CTRL + J 

11 

CTRL + K 

12 

CTRL + L 


Schriftgröße in x-Richtung +1 

Schriftgröße in x-Richtung —1 

Schriftgröße in y-Richtung +1 

Schriftgröße in y-Richtung —1 

Cursor 1 Pixel nach links 

Cursor 1 Pixel nach rechts 

Cursor 1 Pixel nach oben 

Cursor 1 Pixel nach unten 

Cursor left 

Cursor right 

Cursor up 

Cursor down 

Cursor home 

siehe CLS 

Carriage Return 

Umschaltung Kleinbuchstaben 

Umschaltung Großbuchstaben 

RVSon 

RVSoff 

Zeichenmodus 0 
Zeichenmodus 1 
Zeichenmodus 2 
Zeichenmodus 3 
Zeichenmodus 4 


Tabelle 1. Steuerzeichen des GPRINT-Befehls 


nichts 

0 

oben 

1 

unten 

2 

links 

4 

rechts 

8 

oben links 

5 

oben rechts 

9 

unten links 

6 

unten rechts 

10 

Feuer 

Richtungszahl +16 


Tabelle 2. Ergebnisse der Joystick-Abfrage 


dez.-adr. 

hex.-adr. 

Belegung 

0- 1024 

0000-0400 

wie im Handbuch beschrieben 

1025—28671 

0401 -6FFF 

Basic-RAM 

28672—32767 

7000—7FFF 

Editor- und Strukturbefehle 

32768—33791 

8000-83FF 

Video-Ram (Bildschirm) 

33792—34815 

8400—87FF 

Spriteblöcke 16 bis 31 

34816 — 40959 

8800 —9FFF 

Blockgrafik- und Spritegrafik- 
befehle 

40960—49151 

A000—BFFF 

HRG 

49152-53247 

C000—CFFF 

HRG-Befehle 

53248 — 57343 

D000—DFFF 

keine Veränderungen 

57344 — 59392 

EOOO—E7FF 

Speicher für Farben der HRG 


Tabelle 3. Speicherbelegung 


Programm : s+g-basic 0801 4100 


0801 

: 

la 

08 

cl 

07 

9p 

32 

30 

39 

lf 

0809 

: 

36 

20 

20 

20 

48 

53 

53 

20 

08 

0811 

: 

28 

43 

29 

20 

31 

39 

38 

35 

51 

0819 

s 

00 

00 

00 

ff 

ff 

00 

00 

ff 

19 

0821 

: 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

20 

0829 

: 


00 

00 

ff 

ff 

00 

00 

a9 

7c 

0831 

• 

00 

85 

57 

85 

59 

a9 

09 

B5 

8c 

0839 


58 

a9 

88 

85 

5a 

a 0 

ff 

c8 

75 

0841 

: 

bl 

37 

91 

59 

cQ 

dB 

f 9 

e6 

f 6 

0849 

s 

58 

e6 

5a 

a5 

5a 

c9 

a 0 

90 

f 7 

0851 

: 

ef 

a9 

00 

85 

5b 

85 

5d 

a9 

/0 

0059 

: 

21 

05 

58 

a9 

C0 

85 

5a 

a9 

7d 

0861 

: 

31 

85 

5c 

a9 

70 

85 

5b 

a 0 

Bf 

0869 

: 

ff 

cB 

bl 

57 

91 

39 

bl 

5b 

85 

0871 

: 

91 

5d 

c8 

d0 

f 5 

e6 

58 

e6 

c3 

0879 


5a 

e6 

5c 

e6 

5e 

a5 

5e 

c9 

5a 

0881 

: 

80 

90 

©7 

4c 

d0 

9© 

04 

ff 

df 

0889 


ff 

00 

00 

ff 

ff 

00 

00 

ff 

88 

0891 

• 

ff 

00 

00 

ff 

ff 

00 

BB 

ff 

90 

0899 

: 

ff 

00 

BB 

ff 

ff 

00 

00 

ff 

98 

08 a 1 

s 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

a 0 

08a9 

i 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

a8 

08b 1 


ff 

00 

00 

ff 

ff 

00 

00 

ff 

b0 

08b9 

: 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

b8 

08 c 1 

: 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

C0 

00c 9 

: 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

cB 

08dl 

X 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

dB 

0Bd9 


ff 

00 

00 

ff 

ff 

00 

00 

ff 

d8 

00p 1 

s 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

B0 

08e9 

: 

ff 

00 

00 

ff 

ff 

00 

00 

ff 

e8 

08 f 1 

i 

ff 

00 

00 

ff 

ff 

00 

BB 

ff 

+0 

0Bf 9 

: 

ff 

00 

00 

ff 

ff 

00 

00 

a6 

46 

0901 


7a 

a0 

M 

84 

0f 

bd 

00 

02 

40 

0909 

: 

10 

07 

c9 

ff 

f 0 

3e 

08 

dB 

55 

0911 

: 

f 4 

c9 

20 

f 0 

37 

85 

08 

c9 

63 

0919 


22 

f 0 

56 

24 

0f 

70 

2d 

c9 

8a 

0921 

: 

3f 

d0 

04 

a9 

99 

d0 

25 

c9 

47 

0929 

: 

30 

90 

04 

c9 

3c 

90 

ld 

84 

al 

0931 

: 

71 

a0 

00 

84 

0b 

88 

86 

7a 

87 

0939 

: 

ca 

c8 

e8 

bd 

00 

02 

38 

f9 

3e 

0941 

: 

9e 

a 0 

f0 

f 5 

c9 

80 

d0 

30 

6e 

0949 

: 

05 

0b 

a4 

71 

eü 

c8 

99 

fb 

5e 

0951 

: 

01 

b9 

fb 

01 

f0 

38 

38 

e9 

d3 

0959 

: 

3a 

f 0 


c9 

4 9 

d0 

02 

B5 

74 

0961 

: 

0f 

38 

e9 

55 

d0 

9f 

85 

08 

Ol 

0969 

: 

bd 

00 

02 

f0 

df 

c5 

08 

f0 

f 3 

0971 

- 

db 

c8 

99 

fb 

01 

eQ 

dB 

f0 

13 

0979 

s 

a6 

7a 

e6 

0b 

cB 

b9 

9d 

a0 

89 

0981 

: 

10 

f a 

b9 

9p 

a 0 

d0 

b4 

f0 

96 

0989 

: 

0f 

bd 

00 

02 

10 

bc 

99 

fd 

00 

0991 

: 

01 

c6 

7b 

a9 

ff 

85 

7a 

60 

e0 

0999 

: 

a9 

01 

85 

0b 

a 0 

00 

b9 

3c 

ef 

09a 1 

: 

8a 

d0 

02 

c8 

p8 

bd 

BB 

02 

ad 

09a9 

• 

38 

f 9 

3c 

8a 

f0 

f 5 

c9 

80 

25 

09b 1 

: 

d0 

0e 

e6 

71 

a4 

71 

a9 

cc 

86 

09b9 

: 

99 

f b 

01 

a5 

0b 

4c 

4b 

08 

96 


48 


09c 1 

i 

aö 

7a 

e6 

0b 

c8 

b9 

3b 

8a 

lc 

09c9 

: 

10 

f a 

b9 

3c 

8a 

d0 

d6 

a9 

2a 

09dl 

s 

01 

85 

0b 

a 0 

00 

b9 

3c 

8b 

42 

09d9 

S 

d0 

02 

cG 

eQ 

bd 

00 

02 

38 

4e 

09el 

t 

f 9 

3c 

Bb 

f0 

f 5 

c9 

80 

d0 

4a 

09e9 

• 

0p 

E?6 

71 

a4 

71 

a9 

cd 

99 

2 a 

09 f 1 

: 

fb 

01 

a5 

0b 

4c 

4b 

88 

a6 

c6 

09f 9 

; 

7a 

e6 

0b 

cB 

b9 

3h 

8b 

10 

86 

0 a 01 

; 

5a b9 

3c Sb dB 4c 

8a 

62 

0a09 

: 

88 

10 

13 

24 

0f 

30 

0f 

c9 

25 

Ball 


ff 

f0 

0b 

c9 

cc 

f0 

0 a 

c9 

94 

0 al? 

: 

cd 

10 

27 

4c 

24 

a7 

4c 

f 3 

4a 

0 a 21 


a6 

cB 

84 

49 

bl 

5f 

aa 

a0 

78 

0a29 


ff 

ca 

f0 

08 

c8 

b9 

3c 

8a 

2b 

0a31 

: 

10 

fa 

30 

f 5 

c0 

b9 

3c 

8a 

e9 

0a39 


30 

05 

20 

47 

ab 

d0 

f 5 

4c 

8e 

0a41 


ef 

a6 

c8 

84 

49 

bl 

5f 

aa 

3b 

0a49 


a0 

ff 

ca 

f0 

08 

cB 

b9 

3c 

e0 

0a5 1 


8b 

10 

fa 

30 

f 5 

cB 

b9 

3c 

ae 

0a59 

: 

8b 

30 

05 

20 

4 7 

ab 

dB 

f 5 

43 

0 a 61 


4c 

pf 

a6 

20 

73 

00 

20 

6d 

e5 

0a69 

: 

89 

4c 

ae 

a7 

c9 

cc 

f0 

0 a 

94 

0a7 1 


c9 

cd 

f0 

11 

20 

79 

00 

4c 

e6 

0a79 

: 

ed 

a7 

20 

73 

00 

38 

e9 

01 

lc 

0 a 81 

: 

0a 

aa 

4c 

Be 

89 

20 

73 

00 

2d 

0a89 

: 

18 

69 

36 

0a 

aa 

bd 

29 

8c 

7b 

0a91 


48 

bd 

28 

Bc 

48 

4c 

73 

00 

08 

0a99 

: 

a9 

00 

85 

0d 

20 

73 

00 

c9 

77 

Baal 


cd 

t0 

06 

20 

79 

00 

4c 

Bd 

50 

0aa9 

: 

ae 

20 

73 

00 

c9 

30 

90 

f 3 

8c 

0 abl 


18 

69 

36 

0a 

48 

20 

73 

00 

a0 

0ab9 


20 

fl 

ae 

68 

a8 

b9 

28 

8c 

9d 

0 ac 1 


85 

55 

b9 

29 

8c 

05 

56 

20 

13 

0ac9 


54 

00 

4c 

Bd 

ad 

48 

8a 

48 

ba 

0 ad 1 

t 

98 

48 

a9 

7f 

Bd 

0d 

dd 

ac 

fa 

0ad9 


0d 

dd 

10 

03 

4c 

72 

fe 

20 

ce 

0ae 1 


02 

fd 

dB 

03 

6c 

02 

80 

20 

8f 

0ae9 

3 

bc 

f 6 

28 

ei 

ff 

<0 

03 

4c 

91 

0 af 1 

• 

72 

fe 

20 

15 

fd 

20 

a3 

fd 

f 8 

0af 9 

t 

20 

18 

e5 

a9 

05 

8d 

10 

d0 

93 

0b01 


a9 

01 

8d 

00 

dd 

a9 

80 

8d 

d6 

0b09 


80 

02 

a9 

ce 

8d 

18 

03 

a9 

cf 

0b 11 

• 

09 

Bd 

19 

03 

a9 

lb 

8d 

11 

d3 

0b 19 


d0 

a9 

00 

8d 

aa 

02 

Bd 

ab 

b8 

0b21 

: 

02 

8 d 

ac 

02 

8d 

al 

02 

8d 

5e 

0b29 

: 

a2 

02 

8d 

a3 

02 

8d 

a4 

02 

c7 

0b31 


a9 

01 

Bd 

a5 

02 

20 

44 

e5 

71 

0b39 

s 

6c 

02 

a 0 

41 

d4 

53 

45 

d4 

9d 

0h 41 

: 

46 

53 

45 

d4 

5a 

53 

45 

d4 

lc 

0b49 

: 

43 

4f 

4r 

4f 

55 

d2 

43 

55 

d4 

0b51 

s 

52 

53 

4f 

d2 

46 

49 

4c 

cc 

f 4 

0b59 


49 

4b 

d6 

46 

46 

49 

4c 

cc 

Cl 

0b61 

: 

5a 

46 

49 

4c 

CC 

56 

45 

c3 

d6 

0b 6 9 


4f 

4c 

44 

56 

45 

c3 

42 

46 

c 2 

0b71 

: 

4c 

41 

53 

c8 

47 

46 

4c 

41 

a6 

0b79 

s 

53 

C8 

42 

47 

46 

4c 

41 

53 

lc 

0b81 

: 

c8 

46 

4f 

46 

c6 

44 

4f 

57 

83 

0b89 

3 

CO 

4c 

45 

46 

d4 

52 

49 

47 

2b 

0b91 


48 

d4 

55 

d0 

46 

4c 

41 

53 

25 


0b99 


c8 

4f 

46 

c6 

53 

43 

4c 

d2 

99 

0b al 


53 

43 

4f 

4c 

4f 

55 

d2 

53 

85 

0b aV 


52 

56 

d3 

53 

42 

4c 

4t 

43 

d0 

0b b 1 


cb 

53 

4f 

ce 

53 

4f 

46 

c6 

2a 

0bb9 

t 

53 

4d 

4f 

44 

c5 

4d 

43 

4f 

82 

0bc 1 


4c 

4f 

55 

d2 

58 

45 

58 

d0 

17 

0br9 

: 

01 

ff 

59 

45 

5B 

d0 

53 

50 

c3 

0b d 1 

: 

4c 

4f 

d4 

53 

53 

45 

d4 

53 

be 

0bd9 

s 

55 

dB 

53 

44 

4f 

57 

ce 

53 

85 

0bel 

X 

52 

49 

47 

40 

d4 

53 

4c 

45 

56 

0b e9 


46 

d4 

53 

50 

52 

49 

4f 

d2 

cb 

0bf 1 

X 

42 

4d 

4f 

56 

c5 

52 

52 

49 

43 

0bf 9 

: 

47 

48 

d4 

52 

4c 

45 

46 

d4 

95 

0C01 

: 

52 

55 

dB 

52 

44 

4f 

57 

ce 

36 

0c 09 

X 

53 

4d 

4f 

56 

c5 

4d 

4f 

56 

52 

0c 11 

s 

45 

54 

cf 

44 

45 

53 

49 

47 

9f 

0c 19 

: 

ce 

58 

4d 

49 

d2 

59 

4d 

49 

50 

0c 21 

: 

d2 

53 

43 

4f 

52 

c4 

54 

55 

9f 

0c 29 

: 

52 

ce 

52 

4f 

54 

d2 

52 

4f 

25 

0c31 

X 

54 

cc 

44 

45 

54 

45 

43 

d4 

cb 

0c 39 


00 

00 

ff 

48 

52 

c7 

4e 

52 

83 

0c41 

X 

cd 

43 

4c 

d3 

4d 

55 

4c 

54 

97 

0c49 

: 

c9 

4d 

4f 

44 

c5 

47 

43 

4f 

57 

0c51 

: 

4c 

4f 

55 

d2 

50 

4c 

4f 

d4 

43 

0c 59 

a 

44 

52 

41 

d7 

4c 

49 

4e 

c5 

e5 

0c61 

; 

52 

45 

c3 

42 

4c 

4f 

43 

cb 
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Hardcopy-Routinen 


Hardcopy 
CP-80X mit 
Simons Basic 

Mit diesem Programm können Sie 
Hardcopies von HiRes-Grafiken in 
Simons Basic erstellen. 

Das Programm erstellt eine Hardcopy der HiRes-Grafik von 
Simons Basic. Dem CP-80X ist zwar ein Heft mit mehreren 


150 

FOR I = 32000 TO 32293 STEP 8 <063> 

160 

S = 0 


<133> 

170 

FOR K = 0 TO 7 


<255> 

180 

READ A : S = S + A 


< 106> 

190 

POKE I+K , A 


<036> 

200 

NEXT K 


<044 > 

210 

READ Ri IF S = R 

THEN 230 <200> 

220 

PRINT “ FEHLER IN 

";300+N*10 SEND <142> 

230 

N=N+1:NEXT I 


< 106> 

240 

s 


<216> 

250 

SYS 32284 


<158> 

260 

: 


<23B> 

300 

DATA 76, 64,125, 

0,224, 

64,225,128, 


906 


<093> 

310 

DATA 226,192,227, 

0,229, 

64,230,128,1 


296 


<153> 

320 

DATA 231,192,232, 

0,234, 

64,235,128,1 


316 


<085> 

330 

DATA 236,192,237, 

0,239, 

64,240,128,1 


336 


< 189> 

340 

DATA 241,192,242, 

0,244, 

64,245,128,1 


356 


< 159> 

350 

DATA 246,192,247, 

0,249, 

64,250,128,1 


376 


<007> 


Routinen für den C 64 beigelegt, doch die darin aufgeführte 
Hardcopy für Simons Basic funktionierte leider nicht. Da der 
Drucker noch relativ neu auf dem Markt und nicht ganz 
Epson-kompatibel ist (wegen des eingebauten Interfaces), 
ist bisher noch keine Hardcopy erschienen. Dieses Pro¬ 
gramm schafft »schnelle« Abhilfe (Maschinensprache, Druck¬ 
zeit: 58 Sekunden). 

Nach dem Abtippen des Programms (Abspeichern nicht 
vergessen!) wird es mit RUN gestartet. 

Es liest dann die Daten ein und überprüft diese auf ihre Rich¬ 
tigkeit. Da in jeder Zeile Prüfsummen eingebaut sind, können 
eventuelle Fehler auf eine Zeile genau lokalisiert werden. 

Danach wird das Maschinenspracheprogramm gestartet, 
dieses löscht das Ladeprogramm und schützt das Maschi¬ 
nenprogramm vor dem Überschreiben durch Basic. 

Dann kann durch »SYS 32000« jederzeit eine Harck 
der Grafikseite erstellt werden. Die Hardcopy wird in der Mitte 
des Blattes ausgedruckt, nach dem Drucken wird der Zeilen¬ 
abstand zurück auf 1/6 inch gestellt. 

(Stephan Arndt/rg) 



Beispiel einer Hardcopy auf dem CP-80X 


100 

101 

103 

104 

105 

106 
107 
10a 

109 

110 
120 
130 
140 


REM »»#************»***■»*#■»******## 
REM » HARDCOPY MIT SIMON'S BASIC * 
REM * AUF CP-80X « 
REM * » 
REM * 1-1985 BY STEPHAN ARNDT * 
REM * SUEDWESTKORSO 62 * 
REM » 1000 BERLIN 41 * 
REM » » 
REM ******************************* 

: REM HARDCOPY DER HIRES - SEITE 
: REM MIT - SYS 32000 * 


<238 > 
< 222 > 
<187> 
<153> 
<165> 
<201 > 
<218> 
<157> 
<247> 
<086> 
< 121 > 
<234> 
<116> 


360 DATA 251,192,252, 0,254, 0, 0, 0, 

949 <030> 

370 DATA 0, 0, 0, 0, 0, 25, 8, 40, 

73 <107> 

380 DATA 234,169, 4, 133,186,169, ' 96,133, 1 

124 <029> 

390 DATA 185,169, 0,133,183,169, 1,133, 

973 <205> 

400 DATA 184, 32,192,255,166,184, 32,201,1 

246 <252> 

410 DATA 255,169, 27, 32,210,255,169, 51,1 

168 <134> 

420 DATA 32,210,255,169, 22, 32,210,255,1 

185 <002> 

430 DATA 162, 0,142, 61,125,174, 61,125,8 

50 <040> 

440 DATA 138, 10,170,189, 3,125,133,251,1 

019 <170> 

450 DATA 189, 4,125,133,252,160, 20,169,1 

052 <220> 

4I- 1 DATA 32 , 32,210,255,136,208,250,169,1 

292 <057> 

470 DATA 27, 32,210,255,169, 76, 32,210,1 

011 <124> 

480 DATA 255,169, 64, 32,210,255,169, 1,1 

155 <192> 

490 DATA 32,210,255,162, 0,142, 63,125, 

989 <108> 

500 DATA 160, 0,140, 62,125,120,120,165, 

892 <203> 

510 DATA 1, 41,253,133, 1, 41,253,234, 

957 <003> 

520 DATA 172, 62,125,177,251,162, 0,234,1 

183 <130 > 

530 DATA 10, 62, 53,125,232,224, 8,208, 

922 <033> 

540 DATA 246,172, 62,125,200,140, 62,125,1 

132 <069> 

550 DATA 192, 8,208,227,165, 1, 9, 2, 

812 <249> 

560 DATA 133, 1, 88,160, 0,185, 53,125, 

745 <248> 

570 DATA 32,210,255,200,192, 8,208,245,1 

350 <210> 

580 DATA 234, 24,165,251,105, 8,133,251,1 

171 <116> 

590 DATA 165,252,105, 0,133,252,174, 63,1 

144 <142> 

600 DATA 125,232,142, 63,125,224, 40,20B,1 

159 <087 > 

610 DATA 167,169, 13, 32,210,255,174, 61,1 

081 <026> 

620 DATA 125,232,142, 61,125,224, 25,240,1 

174 <070> 

630 DATA 3, 76,109,125,234,169, 27, 32, 

775 <050> 

640 DATA 210,255,169, 50, 32,210,255, 32,1 

213 <129> 

650 DATA 204,255, 88, 96,169,125,141,155,1 

233 <112> 

660 DATA 129, 76, 10,128, 0, 0, 0, 0,3 

43 <037> 

670 : <138> 

Listing »Hardcopy CP-80X«. Bitte beachten 
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Hardcopy-Routinen 


»Multicolor« 
auf dem 

FX/RX-80 

Hardcopy-Programme für den Epson 
FX gibt es viele. Doch dieses Pro¬ 
gramm ermöglicht eine Umsetzung 
der Farben in verschiedene Grau¬ 
stufen. 

Die meisten Drucker-Besitzer werden sich schon geärgert 
haben, daß »normale« Hardcopies von Multicolor-Grafiken 
kaum als solche zu erkennen waren. Besitzer eines Epson- 
RX/FX-80 sind jetzt fein raus. 

Ich habe mich geärgert, als ich das erste Mal die Hardcopy 
einer Strip-Poker-Grafik auf meinem FX-80 ausdrucken 
wollte. Als ich dann noch den Test des PRINT-64-lnterfaces in 
der 64’er, Ausgabe 12/84, gelesen habe, das den Ausdruck 
von Multicolor-Grafiken mittels Grauschattierungen erlaubt, 
habe ich mir gedacht: Das muß doch auch softwaremäßig 
machbar sein. 

Gesagt, getan. Eines Abends nahm ich mir eine Flasche 
Cola und etwas Knabberkram und fing an zu programmieren. 
Nach mehreren erfolglosen Anläufen und stapelweise 
bedrucktem Papier war ich am Ziel: »M-C-HRDCPY« Bef. Doch 
nun zum eigentlichen Programm. 

Das Prinzip 


besitzen — bei Vorhandensein eines Epson-Druckers recht 
unwahrscheinlich — müssen Sie die Zeilen 1250 bis 1280 
herausnehmen und zum Arbeiten immer wieder den Basic- 
Lader benutzen) und ein File namens »M-C-HRDCPY (Start¬ 
adresse)« wird auf Diskette erzeugt. Gleichzeitig wird das 
Programm adressenangepaßt in den Speicher ab (Adresse) 
geschrieben. Wenn Sie »M-C-HRDCPY« nun noch eventuell 
durch POKE 55,(adresse) INT(adresse/256)*256:POKE 
56,INT(adresse/256): CLR schützen, kann der erfolgreichen 
Hardcopy eigentlich nur noch das Dreckfuhlerteufelchen im 
Wege stehen. 

Nun zum Aufruf der Hardcopy-Routine. Generell hat er die 
Form: 

SYS (adresse),(filenummer),(page),a,b,c,d 
(adresse) ist die Startadresse des Programms — die, die 
Sie auf die Frage »Startadresse?« eingegeben haben —, für 
(filenummer) setzen Sie eine 0 ein, falls Sie Ihren Drucker 
am User-Port angeschlossen haben oder die Filenummer 
eines Files, das Sie vorher auf den Drucker zur Übergabe von 
Grafikdaten geöffnet haben. 

(page) ist die Speicherseite, auf der die Grafik beginnt — 
also INT(Adresse der Grafik/256) und 
a,b,c,d sind die Masken für die Graustufen der Hardcopy. 



Eine Hardcopy, bei der die Farben durch verschiedene 
Graustufen dargestellt werden. 


Eine Multicolor-Grafik ist ja im wesentlichen genauso wie 
eine normale Grafik aufgebaut, nur repräsentieren jetzt zwei 
statt einem Bit einen Punkt auf dem Bildschirm. In dieser 
Kombination aus den beiden Bits steckt jetzt noch eine Farb¬ 
information: Sind beide Bits 0, so wird der Punkt in der Farbe 
des Hintergrund registers gesetzt, sind sie jedoch 01,10 oder 
11, wird der Punkt in der Farbe aus den Registern 33 bis 36 
des VIC gesetzt. 

Ich verfahre nun so, daß ich jeden Bildschirmpunkt in einer 
Matrix von 2x12 Punkten auf dem Drucker darstelle. Durch 
die Anordnung der Punkte in dieser Matrix kann ich nun ver¬ 
schiedene Graustufen darstellen — die Grundlage ist damit 
gegeben. 


Wie bereits erwähnt, kennt der VIC vier Möglichkeiten für 
die Darstellung eines Punktes, nämlich die Kombinationen 
00,01,10 oder 11. Andererseits kennt die Hardcopy-Routine 
vier Graustufen. Die Parameter a, b, c und d geben nun an, 
wie die Bitkombinationen den Graustufen zugeordnet wer¬ 
den. a gibt an, welche Bitkombination auf dem Drucker ganz 
hell, b, welche hellgrau, c, welche dunkelgrau und d, welche 
schwarz dargestellt werden, a, b, c und d müssen dabei den 
dezimalen Wert der Bitkombinationen annehmen, das heißt, 
0 für 00, 1 für 01, 2 für 10 und 3 für 11. Ein Beispiel hierzu 
gibt der Hardcopy-Ausdruck. 

Hier noch einmal zur Übung: 

Angenommen, Sie haben eine Simons Basic-Multicolor- 


Die Bedienung 


Die Bedienung mag auf den ersten Blick etwas kompliziert 
erscheinen, erlaubt dafür aber auch optimale Variations¬ 
möglichkeiten. 

Vor jeder Anwendung kommt aber leider noch das Abtippen 
von 438 DATAs. Wenn Sie das gemacht haben, sollten Sie das 
Programm vorsichtshalber vor dem Starten speichern (so 
mancher mußte wegen eines Tippfehlers noch einmal an¬ 
fangen ...). Nach dem Starten sollte sich das Programm nach 
zirka vier Sekunden mit der Frage »Startadresse?« melden. 
Geben Sie nun ein, wo Sie das Programm im Speicher haben 
wollen. Eine kleine Hilfe hierzu gibt die Tabelle, die günstige 
Startadressen für verschiedene Programme nennt. 

Dann wird die Floppy anlaufen (falls Sie nur eine Datasette 


Grafik und wollen diese so ausdrucken, daß die OO-Punkte 
schwarz, die 01-Punkte hellgrau, die 10-Punkte weiß und die 
11-Punkte dunkelgrau dargestellt werden. 

Also laden Sie den Basic-Lader, sehen in der Tabelle nach, 
welche Startadresse günstig ist, geben diese ein und tippen 
dann, nachdem sich der Computer wieder mit READY gemel¬ 
det hat, ein: 

POKE 55,44:POKE 56,126:CLR 

um M-C-HRDCPY vor dem Überschreiben zu schützen 

und dann weiter: 

SYS 32300,0,224,2,1,3,0 

falls Sie den Drucker am User-Port betreiben beziehungs¬ 
weise 

OPEN xx,(Druckeradresse),(Grafiksekundäradresse) 

SYS 32300,xx,224,2,1,3,0 

falls Sie ein Hardware-Interface besitzen. 


56 














Hardcopy-Routinen 


Tabelle. Günstige Startadresse und Werte für 
(page) für verschiedene Programme und Werte für 
POKE 55,x:POKE 56,y:CLR 


Programm 

Startadresse 

page 

poke 55, 

poke 56. 

Dia-Show 

49152 

32 

- 

- 

Simons Basic 

32300 

224 

44 

126 

Paint Magic 
(Grafik laden + 

49152 

64 

~ 

~ 

starten) 
Supergrafik 64 

26666 

160 + 224 

42 

104 

Screen Graphics 64 32300 

160 

44 

126 


Das Programm wurde auf einem FX-80 sowohl mit 
Software- als auch mit Data-Becker- und Görlitz-Hardware¬ 
interface und auf einem RX-80 mit Software- und Görlitz- 
Hardwareinterface getestet und lief in allen Fällen problem¬ 
los. Vermutlich ist das Programm auch auch dem MX-80 und 
anderen Epson- und Epson-kompatiblen Druckern lauffähig. 
Im Zweifelsfall müssen Sie daher ausprobieren, ob auch Ihr 
Drucker für dieses Programm geeignet ist. kaputt kann 
eigentlich nichts gehen. Benutzt werden folgende Steuer¬ 
sequenzen: ESC 1, um den Drucker auf 7/72 Inch Zeilen¬ 
vorschub zu schalten, ESC (Klammeraffe), um ihn zu initiali¬ 
sieren und ESC Z, um ihn in 1920 Punkte/Zeile-Grafikmodus 
zu bringen. 


Die Kompatibilität 


Da das Programm also recht viele Drucker unterstützt, frei 
verschiebbar ist, den Ausdruck von Grafiken aus den ver¬ 
steckten RAMs erlaubt und sowohl Hard- als auch Soft¬ 
ware-Interfaces unterstützt, sollte meiner Meinung nach ein 
Höchstmaß an Kompatibilität gewährleistet sein. 

Ansonsten viel Spaß und gut Druck! 

(Karsten Klenz/rg) 


1300 REM= PROGRAMM-DATAS ============= <119> 

3681 DATA 32,253,174,32,158,183,134,2,240, 

5,32,201,255,208,0,32,253,174,32 <12B> 

3682 DATA 158,183,134,21,169,0,133,20,32,2 

53,174,32,158,183,134,87,32,253,174 <123> 

3683 DATA 32,158,183,134,88,32,253,174,32, 

158,183,134,89,32,253,174,32,158 <242> 


3684 DATA 183,134,90,169,255,141,3,221,173 

,2,221,9,4,141,2,221,160,1,185,114 <212> 

3685 DATA 1,32,79,1,136,16,247,169,0,133,9 

8,169,0,133,99,32,228,255,240,3,76 <177> 

3686 DATA 59,1,160,3,185,110,1,32,79,1,136 

,16,247,169,0,133,97,165,20,164,21 <115> 

3607 DATA 133,34,132,35,164,99,162,0,120,1 

69,53,133,1,177,34,149,100,200,232 <248> 

3688 DATA 224,4,208,246,169,55,133,1,88,16 

9,3,133,96,162,3,181,100,164,96,240 <029> 

3689 DATA 6,74,74,136,76,156,0,24,41,3,149 


,91,202,16,236,160,0,162,3,169,0 <104> 

3690 DATA 133,95,169,3,133,104,181,91,197, 

87,208,6,185,118,1,24,144,23,197 <239> 

3691 DATA 88,208,6,185,130,1,24,144,13,197 

,89,208,6,185,142,1,24,144,3,185 <081> 

3692 DATA 154,1,37,104,5,95,133,95,24,38,1 

04,24,38,104,24,202,16,205,32,79 <08B> 

3693 DATA 1,200,192,12,208,187,166,96,202, 

134,96,16,156,24,165,34,105,8,133 <016> 


3694 DATA 34,165,35,105,0,133,35,166,97,23 

2,134,97,224,40,240,3,76,122,0,166 <215> 

3695 DATA 99,232,232,232,232,134,99,224,8, 

240,3,76,91,0,24,165,20,105,64,133 <226> 

3696 DATA 20,165,21,105,1,133,21,166,98,23 

2,134,98,224,25,240,3,76,87,0,160 <144> 

3697 DATA 1,185,116,1,32,79,1,136,16,247,3 

2,204,255,165,2,32,195,255,96,166 <08B> 

3698 DATA 2,240,3,76,210,255,141,1,221,169 

,16,44,13,221,240,251,173,0,221 <087> 

3699 DATA 9,4,141,0,221,41,251,141,0,221,9 

6,7,128,90,27,49,27,64,27,0,0,0,0 <003> 

3700 DATA 0,0,0,0,0,0,0,0,170,0,85,0,170,0 

,85,0,170,0,85,0,170,0,0,0,85,0,0 <129> 

3701 DATA 0,170,0,0,0,170,85,170,85,170,85 

,170,85,170,85,170,85 <091> 

REM= RELATIVE ADRESSEN =========== <212> 

5CU DATA 74,77,96,101,104,161,190,200,210 

,216,235,272,287,312,317,320 <087> 

e G4'er Listing »M-C-Hardcopy«. 

Bitte den Checksummer 64 beachten. 


30 REM= MULTI-C0L8R-HARDCOPY 

40 REM= 

50 REM= FUER C-64 UND EPSON FX/RX-80 = 

60 REM= 

70 REM=KARSTEN KLENZ,HARBURGER STR. 24= 

80 REM=2105 SEEVETAL 1 , TEL. : 04105/2695= 

90 REM================================= 

1000 DIM A7.<422> 

1010 

1020 FOR T=1 TO 422 
1030 READ A7.(T) 

1040 S=S+AX<T> 

1050 NEXT T 
1060 

1070 1F S<>43018 THEN PRINT“FEHLER IN DATA 
S !":STOP 

1080 

1090 INPUT"STARTADRESSE ";AD 
1100 FOR T=l TO 16 
1110 READ B 

1120 A=A%(B+2)+AX CB+3)*256+AD 

1130 A7. (B+2) =A— INT (A/256) *256: A7. (B+3) = I 

NT(A/256) 

1140 NEXT T 
1200 

1210 FÜR T=1 TO 422 
1220 POKE AD+T-1, A7. (T) 

1230 NEXT T 
1240 

1250 OPEN 1,8,14,“©:M—C-HRDCPY“+STR*(AD> + ” 
P W" 

1260 PRINT#1,CHR*(AD-INT(AD/256)*256)CHR*( 
INT(AD/256)); 

1270 FOR T=1 TO 422:PRINT#1,CHR*(AX(T));:N 
EXT T 

1280 CLOSE 1 
1290 END 


<039 > 
<080> 
<034> 
< 182 / 
<054> 
<032> 
< 160> 

< 109> 
<019> 
<248> 
< 212 > 
<054> 
<218> 
<206> 
<044> 

<034> 
<064> 
<021 > 
<06B> 

< 142> 
<092> 

<186> 

<040> 

< 184> 
<14B> 

< 196> 

< 130 > 
<224> 

<209> 

<056> 

<178> 

< 021 > 

< 022 > 


Große 

Hardcopy auf 
Star Gemini 

Posterähnliche Hardcopies können 
die Star Gemini-Besitzer mit diesem 
Programm erzeugen. 

Geben Sie das Programm genau nach Programmlisting, von 
Basic aus ein, vergleichen Sie es und speichern Sie es ab. 
Danach können Sie den Basic-Lader mit RUN starten. Das 
Programm sollte sich mit »Datas OK !«. »AUFRUF ; SYS 
49152,ADR,FN,GN,SA.INV« melden und ist nun ab sofort 
startbereit. 

Sollte diese Meldung nicht erscheinen und »Fehler in 
Datas !!!« gemeldet werden, so ist eine Diskrepanz in der 
Prüfsumme aufgetreten. Die DATA-Zeilen sind fehlerhaft. 
Kontrollieren Sie das Programm noch einmal genau anhand 
des Listings und starten Sie es erneut. 

Ist das Programm bereit, so können Sie den Basic-Lader mit 
NEW aus dem Arbeitsspeicher löschen. Laden Sie nun eine 
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fiehdung - Koubjuder-Raun ! 

Der Raun is vull bis under die Deggn 
Mit: di döliSdn UF:d deiSPSdn 
el&gdrischn und lleiegdronischn 

^bbar-äde . 

Staüfia und glsdzn derf döu jeder, 
obber üfsanassderwürschdl rs «nd an die 
On'dpfler ruMdriggenj des derfen bloufi 
Mir-, die Eggsber-den ! 


Beispiel Hardcopy (das Original ist A4 groß) 


bereits abgespeicherte Grafik, oder erzeugen Sie per Pro¬ 
gramm den gewünschten HiRes-Bildschirm. Zum Poster- 
Ausdruck starten Sie die Routine mit »SYS 49152, ADR, FN, 
GN, SA, INV«. ADR gibt dabei die Startadresse des 8-KByte- 
Bereiches an. Oft ist dies die Adresse 8192 ($2000), es ist 
jedoch auch möglich, Bildschirme, die unter dem ROM 
stehen, auszudrucken. Für Simons Basic wäre dies zum 
Beispiel die Adresse 57344 ($D000). Die drei nächsten 


Parameter entsprechen den Angaben des OPEN-Befehls. 
Sie beinhalten die Filenummer, eine Zahl zwischen 1 und 
255, die für den Ausdruck belanglos ist, die Geräteadresse 
des Druckers, die im allgemeinen auf 4 eingestellt ist und die 
Sekundäradresse für die Drucker- beziehungsweise Inter- 
face-Ansteuerung. Für das Universal-Interface (WW Inter¬ 
face 92000/G, C 64/Centr.) muß diese gleich eins sein. Der 
letzte Parameter gibt den Druckmodus an. Eine »0« steht für 
normale Darstellung; eine »1« für inverse. 

Das Poster kann auf beliebiges Papier gedruckt werden. 
Für die Verwendung von Einzelblättern wird allerdings die 
Papierende-Kennung ausgeschaltet, damit die gesamte 
Hardcopy ohne Unterbrechung ausgedruckt werden kann. 
Nach dem Drucken wird durch ein Förm-Feed das Papier aus 
dem Drucker geschoben, der Drucker in den Einschalt¬ 
zustand versetzt und das entsprechende File geschlossen. 
Wird die Hardcopy mit der Stop-Taste abgebrochen, so wird 

ebenso ein Druckerreset ausgeführt und das Druckerfile 
geschlossen. Das Papier wird allerdings nicht transportiert. 
Der Computer sollte sich mit »BREAK«, »READY« wieder 
melden. 

Mit Hilfe eines Monitors oder eines modifizierten Laders 


OL 


»CSETO« auszuschalten. Jetzt erst können wir unsere 
Routine mit dem Basic-Lader nach 49152 ($0000) kopieren 
und starten. Achtung: Durch das Kopieren und Starten der 
Routine geht die Farbinformation der ersten Bildhälfte verlo¬ 
ren. Will man die Farbe wieder setzen, so muß der veränderte 
Bereich nach der Hardcopy wieder mit der Farbinformation 
gefüllt werden (FOR i=49152 TO 49600:POKE 
iJPE£K/49700):NEXTi). 

e Arbeit mit dem »64’er«-Programm »Hi-Eddi« ist am 
besten möglich, indem man die Grafikseite abspeichert und 
nach Verlassen des Programmes wieder lädt. Die Zusammen¬ 
arbeit mit anderen professionellen Programmen sollten Sie 
selbst erproben. 

Abschließend noch ein Wort zur Anpassung an andere 
Drucker. Der Drucker muß auf alle Fälle Epson- beziehungs¬ 
weise Star-kompatibel sein und Blockgrafikcharakter be¬ 
sitzen. (Für Profis: die acht Charakter beginnen in der vor¬ 
letzten Zeile, mit der vierten Zahl von hinten.) 

Weiterhin ist zu beachten, daß die Sekundäradresse so 
gewählt werden muß, daß alle Grafikbefehle angenommen 
werden (beim Universal-Interface zum Beispiel 1). 

Das ist doch eine Hardcopy, die wirklich Format zeigt! 

(Thomas Hohenberger/rg) 


100 REM" t <123> 
110 REM" —C25SPACE<0B5> 
120 REM” -{4SPACEJSUPER - POSTER 64 t4SPACE 

}- <059> 
130 REM" ^C25SPACE>n <105> 
140 REM" = <5SPACE>STAR BEMINI 10Xt5SPACE>^ <212> 
150 REM" ^<2SPACE>& UNIVERSAL-INTERFACE<2S 


kann die Hardcopy auch direkt abgespeichert werden 

io ICC i:. a . n ). 

Die Adressen, die das Programm belegt, reichen von 49152 
bis 49590. 

Natürlich kann die Routine in eigene Grafikprogramme ein¬ 
gebettet werden. Die Filenummer sollte dann einen noch 
unbelegten Kanal verwenden. 

Arbeitet man mit Simons Basic zusammen, so ist folgendes 
zu beachten : Simons Basic belegt den Speicherbereich von 
SC000 bis $C400 mit der Farbinformation der Grafik. Das 
heißt, unsere Routine würde durch den HiRes-Befehl ge¬ 
löscht. Um trotzdem mit der Erweiterung arbeiten zu können, 
ist die Grafik nach Beendigung der Bilderstellung mit 


PACET- <226> 

158 Wfi I. HUHENUEKUtKi2SFAL'L <135> 

>- <142> 

180 REM“ -£25SPACE>- <155> 

190 REM" <104> 

200 : <176> 

210 RESTORE <004> 

220 SU = 0 <004> 

230 ! <206> 

240 FOR AD = 49152 TO 49567 <212> 

250 s READ PX <!99> 

260 : POKE AD, P7. <15B> 

270 s SU = SU + PX <153> 

280 NEXT AD <114> 


Listing »Superposter 64« 
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290 : <012> 

300 IF SU <> 57112 THEN PRINT "FEHLER IN D 

ATAS !!!“ i STOP <17B> 

310 s <032> 

320 PRINT "DATAS OK !” <035> 

330 PRINT <I78> 

340 PRINT "<DOWN>AUFRUF : SYS49152,ADR,FN, 

GN,SA,INV" <242> 

350 : <072> 

360 END <108> 

370 : <092> 

380 : <102> 

10000 DATA 32,253,174,32,138,173,32,247,18 

3,140,126,193,141,127,193,32,241,183 <202> 
10010 DATA 142,128,193,32,241,183,142,129, 

193,32,241,183,142,130,193,32,241 <180> 


10020 DATA 183,138,41,1,10,10,141,134,193, 

173,128,193,174,129,193,172,130,193 <112> 

10030 DATA 32,186,255,169,0,32,189,255,32, 

192,255,174,128,193,32,201,255,169 <148> 

10040 DATA 63,162,1,141,132,193,142,133,19 

3,160,0,185,137,193,240,6,32,210,255 <063> 
10050 DATA 200,208,245,32,225,255,240,87,3 

2,105,193,32,201,192,133,2,238,131 <106> 

10060 DATA 193,32,89,193,10,5,2,13,134,193 

,170,189,151,193,32,210,255,238,131 <194> 

10070 DATA 193,173,131,193,201,200,208,222 

,173,133,193,208,5,173,132,193,240 <241> 

10080 DATA 17,173,132,193,56,233,1,141,132 

,193,176,3,206,133,193,76,93,192,160 <227> 
10090 DATA 0,185,146,193,240,6,32,210,255, 

200,208,245,173,128,193,32,195,255 <154> 

10100 DATA 32,204,255,96,174,128,193,32,20 

1,255,169,13,32,210,255,160,1,76,164 <127> 
10110 DATA 192,173,132,193,174,133,193,133 

,253,134,254,172,131,193,152,41,248 <028> 

10120 DATA 141,136,193,133,251,169,0,133,2 

52,6,251,38,252,6,251,38,252,165,251 <032> 
10130 DATA 24,109,136,193,133,251,165,252, 

105,0,133,252,6,251,38,252,6,251,38 <166> 

10140 DATA 252,6,251,38,252,152,41,7,24,10 

1,251,133,251,165,252,105,0,133,252 <042> 

10150 DATA 165,253,24,41,248,101,251,133,2 

51,165,254,101,252,133,252,173,126 <001> 

10160 DATA 193,24,101,251,133,251,173,127, 

193,101,252,133,252,165,253,41,7,73 <131> 

10170 DATA 7,170,169,1,202,48,3,10,208,250 

,141,135,193,162,52,120,134,1,160 <094> 

10180 DATA 0,177,251,162,55,134,1,88,44,13 

5,193,208,2,160,1,152,96,165,251,24 <096> 

10190 DATA 105,1,133,251,165,252,105,0,133 

,252,76,66,193,169,0,141,131,193,169 <132> 
10200 DATA 13,32,210,255,160,1B,169,32,32, 

210,255,136,208,250,96,0,32,1,4,1 <048> 

10210 DATA 0,0,0,0,0,0,27,64,15,27,51,4,27 

,56,0,12,27,64,0,0,231,227,225,224 <051> 

10220 DATA 224,225,227,231,0 <11B> 


© S4'e«~ 

Listing »Superposter 64«. Bitte beachten Sie den 
Checksummer. 



Hardcopy 
Itoh 8510 
mit Hi-Eddi 

Besitzern des Itoh 8510 bietet dieses 
Programm die Möglichkeit, von Hi- 
Eddi Hardcopies zu erzeugen. 

Mit dem Hi-Eddi aus der Ausgabe 1/85 vom 64’er lassen 
sich mit minimaler Hardware-Ausrüstung (C 64, Disketten¬ 
laufwerk 1541, Joystick) sehr komfortable Grafiken erzeu¬ 
gen. Doch was nützt die schönste Grafik auf Bildschirm oder 
Diskette, wenn man sie nicht ausdrucken kann? 

Die in Ausgabe 1/85 veröffentlichte Druckroutine Hi-Print 
arbeitet leider nur mit Epson-Druckern zusammen. Da der 
Itoh 8510 ein verbreiteter und guter Drucker ist, wurden für 
ihn die im folgenden beschriebenen Programme erstellt. Er 
wird über eine Centronics-Schnittstelle via User-Port am C 64 
angeschlossen. 

Zusätzlich wurden einige Features eingebaut, die die 
Epson-Hardcopy-Routine nicht besitzt. So wäre die Vorgabe 
von Leerspalten vom linken Rand aus (falls noch Platz ist) eine 
nützliche Sache. Um zwei Grafiken in der Horizontalen anein¬ 
ander zu setzen, wurde dazu die volle Bildschirmbreite in 40 
Spalten 7 u je 8 (40 x 8 = 320) Punkten (wie im Textmodus) 
organisiert. Um jetzt zwei Grafiken nebeneinander zu plazie¬ 
ren, kann dazu die Startspalte (wird mitgedruckt) der links 
stehenden Grafik (Grafik Nr. 1) und die Endspalte (wird nicht 
mitgedruckt) der rechts stehenden Grafik (Grafik Nr. 2) vor¬ 
gewählt werden. 

Die Ausdruckbreite wird dazu in drei Sektoren von links 
nach rechts aufgeteilt. 

0. Sektor: Abstand (SPC) in Punkten vom linken Papierrand. 

1. Sektor: Grafik Nr. 1 (Bild-Nr.; Startspalte) 

Bild-Nr. = 0 = > kein Bild, Startspalte = 48 
Bild wird rechtsbündig gedruckt 

0 < = Startspalte < = 39 

Startspalte = 0 = > volle Hardcopy von Grafik Nr. 1 

2. Sektor: Grafik Nr. 2 (Bild-Nr. ; Endspalte) 

Bild-Nr. = 0 = > kein Bild, Endspalte = 8 
Bild wird linksbündig gedruckt 

1 <= Endspalte < = 40 

Endspalte = 40 = > volle Hardcopy von Grafik Nr. 2 
Insgesamt kann folgende Formel für die Aufteilung der drei 
Sektoren angegeben werden: 

SPC + (40—Startspalte) *8 + Endspalte* 8 = 640 
Im Steuerprogramm werden nacheinander die Bild-Nr. von 
Sektor 1, dann (falls Bild-Nr. < > 0) die Startspalte von Grafik- 
Nr. 1, dann die Bild-Nr. von Sektor 2 und (falls Bild-Nr. < > 0) 
die Endspalte von Grafik-Nr. 2, und schließlich die Anzahl der 
Leerspalten vor Grafik-Nr. 1 abgefragt. 

Die Maximalwerte werden stets durch das Steuerpro¬ 
gramm vorgegeben, so daß in vielen Fällen ein einfaches 
RETURN genügt. 

Um die Druckroutine namens »HI-P(ITOH8510)« für den 
ITOH 8510 in das Steuerprogramm Hi-Eddi einzubilden, 
mußte dieses auf die Bedürfnisse der Druckroutine angepaßt 
werden und heißt nun »HI-E(ITOH8510)«. 

Dazu wurden (aus Speicherplatzgründen) alle Zeilen neu 
numeriert und die Textausgabepassagen verkürzt. In den Pro- 
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grammzeilen 24 und folgende befindet sich das Drucksteuer¬ 
programm. 

Es wird hierbei dringend davor gewarnt, das neue Steuer¬ 
programm HI-E(ITOH8510) zu erweitern oder zu ändern, da 
sonst das Steuerprogramm (inklusive Variablen) nicht mehr in 
den verfügbaren Basic-Speicherplatz paßt. Dies gilt auch für 
den eingebauten Parametercheck, da in der Druckroutine 
selber keine Plausibilitätsprüfung mehr vorgenommen wird. 

Für die Initialisierung des Druckers und die Ausgabe der 
Hardcopy sollte sich der Drucker im SELECT-Modus befin¬ 
den, da sonst das Programm hängenbleibt (Acknowledge- 
Signal wird erwartet). 

Falls aus irgendeinem Grunde (Drucker beziehungsweise 
Kabel defekt, falsch oder gar nicht angeschlossen) dieser Fall 
eintritt, kann mit RUN/STOP-RESTORE die Druckroutine 
beendet werden. Hi-Eddi kann dann wieder mit RUN gestartet 
werden. (Das RUN istnotwendig, um HI-EXE nachzuladen, da 
aus Speicherplatzgründen nach der Anwahl des Drucksteu¬ 
erprogramms immer die Druckroutine über HI-EXE nachgela¬ 
den wird.) 

Der Drucker sollte mittels der DIP-Schalter auf CR = CR 
und 8-Bit-Data eingestellt sein. Da am Anfang kein Carriage 
Return ausgegeben wird, sollte man dafür sorgen, daß der 
Druckkopf sich auf einer freien Zeile befindet. Außerdem 
sollte das Papier zentriert werden, da sich der Ausdruck über 
die volle Papierbreite erstrecken kann. 

Die Anpassung des ITOH 8510A an Hi-Eddi besteht im 
wesentlichen aus zwei Schritten: 

1. HI-P(ITOH8510).L abtippen und starten. Dieses ist ein 
Ladeprogramm, das die Druckroutine HI-P(ITOH8510) auf 
Diskette ablegt. Es wird (nach erfolgreichem Test) zum Arbei¬ 
ten mit Hi-Eddi nicht mehr benötigt. 

2. Hi-E(ITOH8510) abtippen und speichern. Es ist das 
angepaßte Steuerprogramm und ersetzt das alte Hi-Eddi. 

So, das wär's eigentlich. Hi-Eddi mit Itoh 8510A ist nun lauf¬ 
fähig. Mir bleibt nur noch, viel Erfolg mit Hi-Eddi zu wünschen. 

(Frank Ziesche/rg) 


10 REM *»*« PROGRAMM ZUR ERZEUGUNG ##### <190> 

20 REM ## VON HI-P(ITOH8510) AUF DISK ## <124> 

30 REM AUTOR: F.ZIESCHE' AM: 13. 2.85 ## <068> 

40 RESTORE:PS=0:REM DATA'S UEBERPRUEFEN <136> 

50 PRINT"CCLR, DOWN, SPACE) DATA-ZEII EN WERDE 

N UEBERPRUFT !* <100> 

60 READ BY : IF BY < 0 THEN 80 <145> 

70 PS = PS + BY : GOTO 60 <016> 

80 IF PS+BY <> 0 THEN PRINT"FEHLER IN DATA 

-ZEILEN !LIST 160- <036> 

90 INPUT"<DOWN,SPACE>DISKETTE EINGELEGTC3S 

PACE>JAC4LEFT>";IN*:IF IN*< >"JA"THEN 90 <159> 
100 RESTORE : OPEN 3,8,3,"HI-P(ITOH8510),P 

,W“ <061> 

110 PRINT#3,CHR*(0);CHR*(13);:REM STARTADR 

ESSE <115> 

120 READ BY : IF BY < 0 THEN 140 <233> 

130 PRINT#3,CHR*(BY>; r GOTO 120 <044> 

140 CLOSE 3 : PRINT"CDOWN,SPACETPROGRAMM W 

URDE ERZEUGT !" <107> 

150 END <152> 

160 REM DATA—ZEILEN FUER HI-P<ITOHB510) <018> 

170 DATA 165,1,72,169,55,133,1,173,87,13,3 

2,186,13,141,170,14,173,107,13,32 <217> 

180 DATA 186,13,141,223,14,169,0,141,164,1 

4.141.217.14.141.174.13.32.248.13 <145> 
190 DATA 32,212,13,169,27,32,111,14,169,70 

,32,111,14,169,0,160,0,32,47,14 <162> 

200 DATA 169,0,141,148,14,169,0,141,201,14 

,169,27,32,111,14,169,83,32,111 <055> 

210 DATA 14,169,0,160,0,32,47,14,169,0,240 

,16,32,135,14,32,241,14,238,148 <007> 

220 DATA 14,173,148,14,201,40,144,240,169, 

0,240,16,32,188,14,32,241,14,238 <092> 

230 DATA 201,14,173,201,14,201,0,144,240,2 

4,173,164,14,105,64,141,164,14,173 <187> 

240 DATA 170,14,105,1,141,170,14,24,173,21 

7.14.105.64.141.217.14.173.223.14 <1B5> 
250 DATA 105,1,141,223,14,169,13,32,111,14 

,169,10,32,111,14,238,174,13,169 <197> 


260 DATA 0,201,25,176,3,76,42,13,104,133,1 

,96,162,7,221,149,31,240,4,202,208 <247> 

270 DATA 248,232,138,10,10,10,10,10,96,0,0 

,0,0,0,0,0,0,24,173,123,13,105,40 <020> 

280 DATA 56,237,60,13,133,251,169,0,133,25 

2,160,3,6,251,38,252,136,208,249 <132> 

290 DATA 165,251,164,252,141,80,13,140,82, 

13,96,169,255,141,3,221,173,2,221 <055> 

300 DATA 9,4,141,2,221,173,0,221,9,4,141,0 

,221,162,0,189,27,14,32,111,14,232 <033> 

310 DATA 224,20,144,245,96,127,27,93,27,78 

.27,84,49,54,27,102,27,76,48,48 <183> 

320 DATA 48,27,48,27,62,133,99,132,98,56,1 

62,144,32,73,188,32,221,189,162 <085> 

330 DATA 1,189,0,1,240,6,232,224,6,144,246 

,202,202,142,81,14,56,169,4,233 <1B1> 

340 DATA 0,240,9,168,169,48,32,111,14,136, 

208,248,172,81,14,240,12,162,1,189 <114> 

350 DATA 0,1,32,111,14,232,136,208,246,96, 

141,1,221,173,0,221,41,251,141,0 <177> 

360 DATA 221,9,4,141,0,221,173,13,221,41,1 

6,240,249,96,120,165,1,72,41,248 <033> 

370 DATA 133,1,169,0,133,252,169,0,133,251 

,160,3,6,251,38,252,136,208,249 <0B0> 

380 DATA 24,165,251,105,0,133,251,165,252, 

105,0,133,252,177,251,153,204,13 <176> 

390 DATA 200,192,8,144,246,104,133,1,88,96 

,120,165,1,72,41,248,133,1,169,0 <202> 

400 DATA 133,252,169,0,133,251,160,3,6,251 

,38,252,136,208,249,24,165,251,105 <237> 

410 DATA 0,133,251,165,252,105,0,133,252,1 

77,251,153,204,13,200,192,8,144 <236> 

420 DATA 246,104,133,1,88,96,160,128,140,4 

,15,169,0,141,8,15,140,10,15,162 <203> 

430 DATA 7,189,204,13,41,0,240,7,169,0,9,0 

,141,8,15,78,10,15,202,16,236,173 <206> 

440 DATA 8,15,32,111,14,78,4,15,144,215,96 <148> 
450 DATA -57076 :REM PRUEFSUMME <1B4> 


© 64 'er 

Listing »HI-P(ITOH8510).L« 

-- 


1 IF A<2 THEN A=A+2:LOAD"HI-EXE",8,1 <058> 

2 IF A=3 THEN 6 <207> 

3 IF A=4 THEN 25 <035> 

4 INPUT"B-ART";C:POKE 780,C:POKE 56,13:CLR 

:W*="123456":SYS 3328 <117> 

5 IF PEEK(8073)AND 64 THEN A=3:LOAD"MENUE“ 

,8,1 <238> 

6 SYS 3337:A=PEEK<8064):ON A+l GOSUB 7,10, 

12,11,18,24,11,11,19,20,12:GOTO 6 <059> 

7 OPEN 3,8,0,"*0":GET#3,C*,C* <217> 

8 GET#3,C*,C*,L*,H*:IF C*=““THEN CLOSE 3:W 

AIT 198,l:RETURN <14B> 

9 PRINT 256*ASC(H*+CHR*<0)>+ASC<L*+CHR*(0) 

);:SYS 3334:GOTO 8 <156> 

10 PRINT”<CLR,DOWN >SEQ.:":PR1NT"<DOWN,2SPA 
CEJ"W*:INPUT"CHOME,3DOWN)";W*:IF LEN(W* 

><2 THEN 10 <096> 

11 RETURN <069 > 

12 POKE 8115,8:PRINT"CCLR,DOWN,RVSDN>G<RVO 

FF>—BILD":IF PEEK(8073)>127 THEN PRINT“ 
CRVSONJF(RVOFFJ-BILD" <152> 

13 PRINT“ CRVSONJS CRVQFF1PRITE" : PRINT" CRVSO 

N) Z CRVOFFl-SATZ":PRINT“CDOWN)->"; <208> 

14 GET C*: IF C*<>*B“AND C*<>"F"AND C*<>"S" 

AND C*<>"Z"THEN 14 <093> 

15 PRINT C*:POKE 780,ASC<C*>:H*=W*:INPUT"< 

DOWNIF—NAME";W*:SYS 3331:W*=H*:H*=“" <213> 

16 OPEN 1,8,15,H*:INPUT#1,A,H*:PRINT A;H*: 

IF A>0 THEN WAIT 198,1 <003> 

17 CLOSE 1:RETURN <144> 

18 POKE 631,34:POKE 198,l:H*- M ":INPUT"CCLR 

,DOWN)";H*:GOTO 16 <210> 

19 A=S075:GOTO 21 <059> 

20 A=8079 <160> 

21 D=PEEK < 8074):C=PEEK(A+D >:PRINT"CCLR,DOW 

N}F"2*D+1:PRINT“S—WEITE:“C, <165> 

22 INPUT C: IF C<1 OR 0160 THEN 22 <125> 

23 POKE A+D,C:RETURN <180> 

24 A=4: LOAD“HI—P ( ITOH8510) *‘,8,1 <215> 

25 INPUT"CCLR,DOWN1S1:B-NR.<0=KB)“;C:POKE 

3415,C AND 7:IF C=0 THEN D=40:GOTO 27 <236> 


Listing »HI-E(ITOH8510)«. Bitte beachten Sie bei der 
Eingabe den Checksummer. 


he.net 


60 






Hardcopy-Routinen 


< 222 > 

<119> 

<041 > 

< 191 > 
<024> 


<194> 


< 106 > 


<05B> 

<016> 


2<b 1NPUT"SSP. K=39;0=VOLL) {2SPACE)0(3LEFT) 
“;D:IF D<0 OR D>39 THEN 26 

27 POKE 338B,D:C=40+D:IF 040 THEN C=40 

28 INPUT"{DOWN)S2:B-NR.(0=KB>";D:POKE 3433 
,D AND 7:IF D=0 THEN 30 

29 PRINT"ESP.(>0; <="; C; " {LEFT)) ";C;:INPUT 
11 15LEFTJ"; D: IF D<1 OR D>C THEN 29 

30 POKE 3451,Dr C=640—(40—PEEK(3388)+D)*8 

31 PRINT"IDQWNJSPC( = >0;<=";C;"{LEFT >)<2SPA 
CE}";C;:INPUT"{6LEFT)";D:IF D<0 DR D>C 
THEN 31 

32 C=INT(D/256)sPOKE 3383,C:INPUT"{DOWN}DR 
UCk<2SPACE>J<3LEFT)"-,C*: IF C*<VJ"THEN 
34 

33 POKE 3381,D-C*256:SYS 3328:INPUT"(DOWN) 
NOCHMALC2SPACEJJ {3LEFT)";C*:IF C*="J"TH 
EN 25 

34 A=1:GOTO 1 

© G4'er 

Listing »HI-E(ITOH 8510)«. Bitte beachten Sie 
bei der Eingabe den Checksummer. 


Hardcopy von 
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dem Plotter 
VC 1520 
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Mit diesem Programm ist es möglich, 
Hardcopies von Hi-Eddi mit dem VC 
1520 zu erstellen. 

Geben Sie zuerst »Copy 1520« (Listing 1) mit dem MSE ein 
und speichern Sie es ab. Jetzt muß noch das Steuer¬ 
programm geändert werden. Bei dem Steuerprogramm 
(Listing 2) sind die Zeilen 600 bis 750 zu ändern. 

Die Hardcopy kann jetzt von Hi-Eddi per Tastendruck oder 
Menu nachgeladen werden. Es ist möglich, mehrere Bilder 
(nahtlos) untereinander oder übereinander (Overlay) zu 
drucken. 

(Stephan Paetzold/rg) 


50 IF A<2 THEN A=A+2sLOAD"HI-EXE",8,1 <107> 

60 IF A=3 THEN 150 <027> 

70 IF A=4 THEN 650 <200> 

100 INPUT"{CLR)BETRIEBSART “5 C:POKE 780,C:P 

OKE 56,13:CLR:W$="123456":SYS 3328 <254> 

110 IF PEEK(8073)AND 64 THEN A=3:LOAD“MENU 

E", 8 ,1 <087> 

150 SYS 3337:A=PEEK(8064) <119> 

160 ON A+l GOSUB 200,250,300,290,400,600,2 

90,290,500,510,300:GOTO 150 <254> 

200 OPEN 3,8,0,"$0":GET#3,C*,C* <154> 

210 GET#3,C*,C$,L$,H$:IF C*=“"THEN CLOSE 3 

:WAIT 198,1:RETURN <094 > 

220 PRINT 256»ASC(H*+CHR*(0>)+ASC(LS+CHR*( 

0));:SYS 3334:GOTO 210 <018> 

250 PRINT"{CLR,DOWN)SEQUENZ:"sPRINT"(DOWN, 
2SPACE)"WS:INPUT"{HOME,3D0WN)";W*:IF L 
EN<W*><2 THEN 250 <062> 

290 RETURN <094> 

300 POKE 8115,8:PRINT"<CLR,DOWN)G=ßRAFIKBI 
LD":IF PEEK(8073)>127 THEN PRINT”F=FAR 
BBILD“ <036> 

310 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":P 

RINT"<DOWN,SPACE)—>"; <017> 

320 GET C*:IF C*<>"G"AND C*< >"F"AND C*< >"S 

"AND C*<>"Z"THEN 320 <240> 

330 PRINT CS:POKE 780,ASC(CS):H*=W*:INPUT" 

{DOWNJFILENAME";WS:SYS 3331:W*=H*:H*=" 

“ <046> 

340 OPEN l,8,15,H*:INPUT#l,A,H*:PRINT A-,H* 

:IF A>0 THEN WAIT 198,1 <073> 

350 CLOSE 1:RETURN <223> 

400 POKE 631,34:POKE 19B,1:H*="":INPUT"{CL 

R,DOWN)";HS:GOTO 340 <207> 

500 A=8075:GOTO 520 <053> 

510 A=8079 <140> 

520 D=PEEK(8074):C=PEEK(A+D)BPRINT"<CLR,DO 

WN)F"2*D-f 1 : PR INT "SCHRITTWEITE : "C, <055> 

530 INPUT C: IF C<1 OR 0160 THEN 530 < 066> 

540 POKE A+D,Cs RETURN <189> 

600 IF A=5 THEN A=4:LOAD"COPY 1520",8,1 <045> 

650 INPUT"{CLR)BILDNUMMER";D:C=(D AND 7) <212> 

660 INPUT"FARBE (0-3)BS:POKE 1000,0:POKE 

1001,VAL(BS) <099> 

6 ?L ; OR 1=0 TO 6 <103> 

680 IF PEEK(8086+I)=D THEN LET Z=(I+1)*819 

2 <162> 

690 NEXT I <010> 

700 X=INT(Z/256):POKE 3399,X:P0KE 3392,Z-X 

#256 <025> 

710 POKE 780,C:SYS 3328 <028> 

720 PRINT“OVERLAY“;:GOSUB 800:IF C*=“J"THE 

N 630 <159> 

730 PRINT"NAHTLOS";:GOSUB 800:IF C*="N"THE 

N LET A=1:G0T0 50 <161> 

740 OPEN 1,6,1:PRINTttl,"M",0,—180:CLOSE 1 <106> 

750 OPEN 1, 6 ,0:PRINT#1,“ ":CLOSE l:GOTO 65 

0 <077> 

800 PRINT" ? (J/N)"; <205> 

810 GET CS:IF CSO"J"AND CSO"N“THEN 810 <210> 

820 PRINT CS:RETURN <230> 

© 64'«M 

Listing 2. »Steuerprogramm Hi-Eddi«. 

Bitte beachten Sie bei der Eingabe den Checksummer. 
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: 

0d 

c6 

f 8 

a5 

f 7 

38 

e9 

3f 

fa 

0ed9 

: 

30 

2B 

d2 

ff 

a9 

0d 

2B 

d2 

f 6 


Listing 1. »Copy 1520«. Bitte beachten Sie bei der Eingabe den MSE. 
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0ee0 

: 

ff 

20 

cc 

+ + 

4c 

70 

0d 

4d 

39 

0eeG 

: 

2c 

30 

2c 

2d 

32 

S0 

31 

0d 

61 

0ef 0 


4d 

2c 

30 

2c 

30 

0d 

20 

2f 

2f 

0ef8 

: 

t3 

a9 

01 

8d 

0e 

de 

58 

60 

9c 

0(00 

: 

ad 

40 

03 

48 

ad 

41 

03 

48 

19 

0+08 

: 

ad 

43 

03 

48 

a2 

00 

Be 

43 

0c 

0+10 

: 

03 

8e 

44 

03 

8e 

45 

03 

c9 

7f 

0f 18 

t 

64 

90 

08 

e9 

64 

ee 

43 

03 

d4 

0+20 

: 

4c 

17 

0+ 

c9 

0a 

90 

08 

e9 

Be 

0+28 

: 

0a 

ee 

44 

03 

4c 

23 

0f 

C9 

c9 

0+30 

: 

01 

90 

08 

e9 

01 

ee 

45 

03 

5b 

0+38 

5 

4c 

2+ 

0+ 

ad 

41 

B3 

ae 

40 

fd 

0+40 

3 

03 

+ 0 

11 

a2 

02 

Bm 

40 

03 

f0 

0f 48 

: 

a2 

05 

Be 

41 

03 

e8 

8e 

42 

6f 

0+50 

: 

03 

4e 

5+ 

0+ 

a2 

00 

8 e 

40 

18 


0f 58 

: 

03 

8e 

41 

03 

8e 

42 

03 

c9 

ee 

0f 60 

s 

64 

90 

08 

ee 

40 

03 

e9 

64 

79 

0f 68 

s 

4c 

5f 

0+ 

c9 

0a 

90 

08 

ee 

84 

0f 70 


41 

03 

e9 

0a 

4c 

6b 

0+ 

c9 

de 

0f 78 

: 

01 

90 

08 

ee 

42 

03 

e9 

01 

87 

0f 80 

: 

4c 

77 

0+ 

ad 

41 

03 

18 

69 

61 

0f 88 


08 

8d 

41 

03 

ad 

42 

03 

c9 

94 

Bf 90 

s 

0a 

90 

08 

e9 

0a 

8d 

42 

03 

3e 

0f 98 

: 

ee 

41 

03 

ad 

41 

03 

c9 

0a 

05 

0« a0 

: 

90 

0b 

e9 

0a 

8d 

41 

03 

ee 

3e 

0fa8 

j 

40 

03 

4c 

9b 

0+ 

a2 

01 

20 

3b 

0fb0 

: 

c9 

+ + 

ad 

4c 

03 

f0 

08 

a9 

99 

0fb8 

t 

44 

20 

d2 

+ + 

4c 

c4 

0+ 

a9 

3b 

0fc0 

3 

4d 

20 

d2 

+ + 

a9 

2c 

20 

d2 

+ 4 

0fc8 

- 

+ + 

ad 

40 

03 

18 

69 

30 

20 

de 


0+d0 

3 

d2 

+ + 

ad 

41 

03 

18 

69 

30 

2c 

0f dB 

s 

20 

d2 

ff 

ad 

42 

03 

1B 

69 

86 

0+ e0 

: 

30 

20 

d2 

ff 

a9 

2c 

20 

d2 

+ 7 

0+eB 

: 

f + 

a9 

2d 

20 

d2 

ff 

ad 

43 

76 

0+ + 0 

3 

03 

18 

69 

30 

20 

d2 

ff 

ad 

54 

0++8 

: 

44 

03 

18 

69 

30 

20 

d2 

+ + 

40 

1000 

3 

ad 

45 

03 

18 

69 

30 

20 

d2 

52 

1008 

3 

+ + 

a9 

0d 

20 

d2 

ff 

68 

Bd 

0d 

1010 

3 

43 

03 

68 

W 

41 

03 

60 

8d 

8a 

1018 

3 

40 

03 

ad 

a3 

0d 

49 

20 

Bd 

70 

1020 

1 

A3 

0d 

8d 

d7 

0d 

ad 

4C 

03 

le 

1028 

3 

49 

01 

Bd 

4c 

03 

ad 

41 

03 

87 

1030 

3 

Bd 

4e 

03 

ad 

40 

03 

Bd 

4d 

48 

1038 

: 

03 

60 

34 

ff 

ff 

ff 

«ff 

ff 

78 


Listing 1. »Copy 1520« (Schluß). Bitte beachten Sie bei der Eingabe den MSE. 


Hardcopy 
MPS 802/1526 

Hardcopies in der vierfachen Größe 
erstellt dieses Programm auf dem 
MPS 802. 


Dieses Programm druckt den HiRes-Grafikbildschirm in 
vierfacher Vergrößerung auf dem MPS 802 aus. Durch die 
Papierbreite bedingt, muß das Bild jedoch in zwei Teile zerlegt 
und anschließend zusammengeklebt werden, was sich 
jedoch nicht nachteilig bemerkbar macht. 

Die Schnelligkeit der Druckroutine (komplett zirka 8 bis 13 
Minuten) wird durch zwei Faktoren bewirkt: 

1. Adreßberechnung und Datenumwandlung in Maschinen¬ 
sprache; 

2. Keine Verwendung von selbstdefinierten Sonderzei¬ 
chen, das heißt die gedruckten Zeichen sind die Standard- 
Grafikzeichen des Commodore 64 (es handelt sich hierbei 
um folgende 16 Zeichen: 

CHR$(160),(161),(162),(172),(187),(188),(190),(191) 

(in normaler und reverser Darstellung) 


Tn 

DRAM 

“C7 

CIRCl.F 

ABC 

TEXT 

LINE 

/ 

PAIHT 

MALI 


M 

NOUE 

SEQ 


□ 

STÄUP 


»< 

GET 


APFEND 

c 

ERASE 


SPRITE 

EDITOR 


BRUSH rOREGROUND 


8RUSM BACKGROUND 


s 


TAB, 
'sTEP 


TOTAL FOREGROUMD 


TOTAL BACKGROUND 


HÖR WER 


| DIR LOAD iQ-HSAUEfH DISK jg^PRINT 

Hardcopy des Hi-Eddi-Menüs 


Während des Druckes ist auf den HiRes-Bildschirm umge¬ 
schaltet, so daß man die Abarbeitung verfolgen kann. Nach 
Fertigstellung des ersten Teiles unterbricht das Programm, 
um ein Neujustieren des Druckerpapiers zu ermöglichen. 
Danach wird der zweite Teil ausgedruckt. Die Bilder sollten 
sich im Speicher ab Adresse 8192 = $2000 befinden. 

(Ralph Hoffmann/Christoph Bertog/rg) 


1 REM *»*•****«»»**«*****#***********»* 

2 REM 4—FACH VER6R0ESSERTE HARDCOPY 

3 REM BY 

4 REM RALPH HOFFMANN 

5 REM CHRISTOPH BERTOG 

6 REM LIEBKNECHTSTR.17 

7 REM ZWEIBRUECKEN 

8 REM 

9 REM ***»#«**»****»**»**»»***■*»**»»»«» 

10 FOR 0=52224 TO 52540:READ D:POKE Q,D:X= 
X+D:NEXT 

15 IF X<>42320 THEN PRINT"DATA—FEHLER":END 
20 PRINT"tCLR}”:Al=PEEK(53265):A2=PEEK <532 
72) 

25 OPEN 6,4,6:PRINT#6,CHR*<20> 

30 OPEN 4,4:PRINT#4,CHRS<141> 

35 POKE 254,0:POKE 255,32 
50 POKE 53265,59:POKE 53272,24 
55 SYS 52224 

60 POKE 53265,Al:POKE 53272,A2 
65 IF P=1 THEN 100 
70 INPUT"NEU JUSTIERT“;C* 

75 IF C*<>"J"THEN 97 

H' POKE 254,160:POKE 255,32:P=1:PRINT"<CLR 
)“:GOTO 50 

100 CLOSE 6:CLOSE 4:END 

32000 DATA 169,160,141,224,3,141,239,3,169 
,172,141,225,3,141,238,3,169,187,141 

32001 DATA 226,3,141,237,3,169,162,141,227 
,3,141,236,3,169,188,141,228,3,141,2 
35 

32002 DATA 3,169,161,141,229,3,141,234,3,1 

69.191.141.230.3.141.233.3.169.190.1 
41 

32003 DATA 231,3,141,232,3,169,0,141,240,3 
,141,241,3,169,1,141,244,3,141,246,3 

32004 DATA 169,0,141,245,3,162,4,142,242,3 
,32,201,255,169,0,141,243,3,173,240 

32005 DATA 3,24,109,241,3,168,177,254,10,4 
6,243,3,10,46,243,3,145,254,200,177 

32006 DATA 254,10,46,243,3,10,46,243,3,145 
,254,206,242,3,240,3,76,193,204,169 

32007 DATA 4,141,242,3,169,8,24,109,240,3, 
141 ,240,3,201,160,208,235,169,0, 141 

32008 DATA 240,3,169,2,24,109,241,3,141,24 
1,3,201,8,208,217,169,0,141,241,3,16 
9 

32009 DATA 64,24,101,254,133,254,144,2,230 
,255,230,255,173,243,3,201,11,176,B 

32010 DATA 201,5,144,33,201,8,176,29,169,1 
8,32,210,255,172,243,3,185,224,3,32 

32011 DATA 210,255,173,246,3,201,20,240,17 
,169,146,32,210,255,76,246,204,172,2 
43 

32012 DATA 3,185,224,3,32,210,255,238,246, 

3.173.246.3.201.21.240.3.76.93.204.1 
69 

32013 DATA 1,141,246,3,169,20,24,109,245,3 
,141,245,3,201 ,80,240, 16, 170,169, 141 

32014 DATA 32,210,255,169,32,32,210,255,20 
2,208,250,240,219,169,13,32,210,255 

32015 DATA 169,0,141,245,3,238,244,3,173,2 
44,3,201,101,208,199,32,204,255,96 


< 132> 
< 010 > 
<232> 
<144> 
< 002 > 

< 151 > 
<193> 
<070> 
<140> 

<069> 

<00B> 

< 146> 
<16B> 

< 196> 
<165> 
<071 > 
<105> 
<162> 
<083> 
<030> 
<048> 

<185> 

<248> 

<018> 


<043> 

<235> 

<064> 

<24B> 

< 167> 

< 177> 
<097> 

< 113> 
<013> 
< 022 > 

<034> 

< 191 > 
<147> 
<234> 
<198> 


6 64'er 

Listing »Hardcopy MPS 802«. Bitte beachten Sie bei 
der Eingabe den Checksummer. 
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Hardcopy-Routinen 


Hardcopy 
in doppelter 
Größe 


Mit diesem Programm ist es jetzt 
auch MPS 801-Besitzern möglich, 
Hardcopies in doppelter Größe aus¬ 
zugeben. 

»BIGCOPY 64« wurde abgefaßt, um auch mit dem Commo- 
dore MPS 801 eine Hardcopy in doppelter Größe anfertigen 
zu können. 

Was uns besonders störte, war die Tatsache, daß es an¬ 
scheinend keine Programme gab, die auf Siebennadel¬ 
druckern Hardcopies in doppelter Größe ermöglichten. Da 
wir jedoch unsere Grafiken zur Abwechslung einmal in akzep¬ 
tabler Größe haben wollten, sahen wir uns gezwungen, ein 
eigenes Programm zu schreiben, im folgenden wollen wir von 
den Schwierigkeiten, die sich uns in den Weg stellten und 
deren Beseitigung berichten. 

Betrachtet man einmal die Speichemutzung des C 64 bei 
Grafiken, so ist ersichtlich, daß sich die Einteilung in horizon¬ 
tal liegende Bytes ideal für Hardcopies eignet, die auf Acht¬ 
nadeldruckern ausgegeben werden sollen. Der Commodgre 
MPS 801-Matrixdrucker hat aber die unangenehme Ei 
Schaft, die Grafiken mit lediglich sieben Nadeln auf das Papier 
zu bringen. Da man mit dem MPS 801 lediglich 480 Punkte in 
einer Zeile drucken kann, ist man bei der Erstellung von Pro¬ 
grammen, die doppelt große Hardcopies ermöglichen sollen, 
darauf angewiesen, die Grafiken nicht wie üblich quer auszu¬ 
geben, sondern sie müssen längs ausgedruckt werden. In 
dieser Richtung kann man die 400 x 640 Punkte problemlos 
auf das Papier bringen. 

Jetzt aber stellt sich das oben angesprochene Problem: 
Wie die acht Bit eines Bytes mit sieben Nadeln ausdrucken? 
Die Antwort ist leider klar: Gar nicht, es geht nämlich nicht! 
Also muß ein Algorithmus her, der es gestattet, das bei ersten 
Versuchen unterschlagene achteBitdennochauszudrucken. 
Dieser Algorithmus muß aber, um eben dieses achte Bit zu 
berücksichtigen, Punkt für Punkt des zu druckenden Bildes 
abfragen, um so die gesamte Grafik in vertikale Siebener¬ 
scheibchen zu zerlegen, die der MPS 801 anstandslos ver¬ 
arbeitet. Durch diese, zugegebenermaßen recht unelegante, 
aber nötige Prozedur, geht jedoch der oben erwähnte posi¬ 
tive Effekt verloren, den die interne Grafikspeicherung auf 
Berechnungen haben kann. Aus diesem Grund dauert eine 
Hardcopy mit der Basic-Version von »BIGCOPY« auch zirka 
150 Minuten, eine nicht gerade berauschende Zeit für den 
Erhalt einer einzigen Grafik. Was liegt bei solcherart trödeln¬ 
den Programmen näher, als sie in der um ein vielfaches 
schnelleren Maschinensprache zu verfassen. 

Hier sei eine kurze Bemerkung über die Verträglichkeit des 
Programmes mit anderen Druckern als dem MPS 801 gesagt. 
Die Basic-Version läßt sich relativ leicht auf andere Drucker 
umschreiben, lediglich die OPEN-Anweisungen und die 
CHR$-Codes müssen geändert werden. Dies gilt selbstver¬ 
ständlich nur für die unglücklichen Besitzer von Siebennadel¬ 
druckern, die bisher gezwungen waren, ihre Grafiken in 
»Briefmarkenformat« ausdrucken zu lassen. 


Die Maschinensprachversion des Programmes gibt sich 
auch schon viel freundlicher, was den Zeitbedarf angeht, sie 
liefert eine Hardcopy in einem Elftel der Zeit des Basic- 

Hardcopy in 13 Minuten 


Programmes, das heißt daß man jetzt nur noch 13 Minuten 
auf seine Grafik zu warten braucht. Wundert man sich jetzt, 
warum die als bis zu hundert Mal schnellere Maschinen¬ 
sprache lediglich eine Reduktion des Zeitbedarfs um 91% 
bringt, so sei man daran erinnert, daß der Drucker ja auch 
nicht gerade zu den schnellsten gehört, er ist also das 
bremsende Glied. 

Da wir unser Programm als vollständiges Maschinen¬ 
programm verfaßten, mußten aus Komfortgründen gewisse 
Änderungen vorgenommen werden. Daraus resultierte die 
vorliegende Form in zwei einzutippenden Teilprogrammen, 
die ein drittes, funktionsfähiges »BIGCOPY« erzeugen. 

Es folgt die Anleitung, wie die Programme eingegeben wer¬ 
den müssen. Zuerst werden beide Listing »BIGCOPY-DATAs« 
(Listing 1) und »BIGCOPY-Erzeuger« (Listing 2) eingetippt 
und ohne sie zu starten auf Diskette abgespeichert. Nach der 
Speicherung des DATA-Teiles sollte dieser Teil jedoch probe¬ 
halber gestartet werden, um eventuelle Tippfehler durch die 
Prüfsummenbildung zu identifizieren und zu korrigieren. 
Diese verbesserte Version muß dann erneut abgespeichert 
werden. Bei dem Erzeugerprogramm dürfen die REM-Zeilen 
auf keinen Fall mit eingetippt werden! Zum Erzeugen von 
»BIGCOPY 64« lädt man zuerst das DATA-Programm, startet 
es und lädt danach den Erzeugerteil. Nachdem eine Diskette 
eingelegt wurde, auf der mindestens neun Blöcke Platz sein 
müssen, wird der Erzeuger mit RUN 1000 gestartet. 
Das «/.äugte »BIGCOPY« kann dann einfach mit LOAD 
"BIGCOPY 64",8 geladen und mit RUN gestartet werden. 
Diese etwas umständliche Prozedur mußte gewählt werden, 
da der Maschinenteil des Programmes direkt hinter dem 
Basic-Teil liegen muß, um alle sieben Grafikspeicher aus¬ 
drucken zu können. 


Speicheraufteilung 


Jetzt zum Programm an sich. 

Um alle sieben Grafikspeicher ansprechen zu können, muß 
auf jeden Fall mit Maschinensprache gearbeitet werden, da 
ein Ausschalten des Basic-ROMs von Basic aus logischer¬ 
weise Selbstmord wäre. 

Im Maschinenteil ist deswegen eine Vertauschroutine, die 
das auszudruckende Bild in den Bereich $2000-$3FFF ver¬ 
schiebt. Diese Routine wird mit Basic angesprochen und 
wechselt den gewählten Grafikspeicher mit dem ab $2000 
aus. Nachdem die Grafik eingeschaltet ist, wird die Druckrou¬ 
tine aufgerufen, die im Maschinensprachteil hinter der 
Tauschroutine liegt. Nach erfolgtem Ausdruck werden die 
beiden Bereiche (gewählter und $2000-$3FFF) wieder 
zurückgeschrieben, so daß kein Bild verlorengeht. Auf diese 
Weise können alle sieben Grafikspeicher hintereinander aus¬ 
gedruckt werden. Die Maschinenroutine für den Ausdruck 
(Listing 3) wurde fast ohne Änderungen aus der Basic- 
Version der Druckroutine gebildet. Die Basic-Routine ver¬ 
deutlicht den Algorithmus und vereinfacht die Anpassung an 
andere Siebennadeldrucker. Zusätzlich läßt sie sich als 
Unterprogramm in eigenen Programmen gebrauchen. 

Da unser Maschinenprogramm bei $ODOO beginnt, und 
das im Januarheft des 64'er veröffentlichte Hi-Eddi zufälliger¬ 
weise auch eine Druckroutine benötigt, die ab $0D00 liegt, 
kamen wir auf die Idee, »BIGCOPY« an Hi-Eddi anzupassen. 
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Beispiel einer Hardcopy. 

Das Original ist 25,7x17 cm groß. 


Für die Anpassung an Hi-Eddi sind zwei Teilschritte notwen¬ 
dig. Zum ersten müssen im Hi-Eddi-Steuerprogramm (Listing 
3 im 64’er, Ausgabe 1/85) die Zeilen 600-820 (Listing 4) 
durch die Änderungen ersetzt werden, zweitens muß ein 
Hi-Print-Programm (Listing 5) erzeugt werden, das aus unse¬ 
rer Maschinenroutine besteht. Zur Erzeugung von Hi-Print 
werden die Basic-Zeilen an den DATA-Teil des »BIGCOPY«- 
Listings angehängt, danach wird der DATA-Teil einfach mit 
RUN gestartet, dadurch wird Hi-Print auf Diskette geschrie¬ 
ben. 

(M. Kowall/E. Wilde/rg) 


5 REM-BLOCK 1-(7213! <051 > 

10 DATA 120,165,1,41,0,133,1,169,32,133,6, 

169,224,133,4,169,0,133,5,133,3 <152> 

20 DATA 162,32,160,0,177,3,133,9,177,5,145 

,3,165,9,145,5,200,208,241,230 <005> 

30 DATA 4,230,6,202,208,234,165,1,9,55,133 

,1,88,96,169,1,141,11,17,169,63 <245> 

40 DATA 141,10,17,169,0,141,12,17,174,12,1 

7,32,59,14,173,16,17,157,32,17 <153> 

45 REM-BLOCK 2-(8794) <174> 

50 DATA 173,17,17,157,32,19,232,173,16,17, 

157,32,17,173,17,17,157,32,19,238 <112> 

60 DATA 12,17,232,173,12,17,201,100,208,21 

7,162,0,32,59,14,173,16,17,157 <076> 

70 DATA 32,18,173,17,17,157,32,20,232,173, 

16,17,157,32,18,173,17,17,157,32 <086> 

80 DATA 20,238,12,17,232,173,12,17,201,200 

,208,217,32,46,16,32,96,16,169 <131> 

90 DATA 0,141,18,17,174,18,17,189,32,17,32 

,210,255,238,18,17,173,18,17,201 <167> 

95 REM-BLOCK 3-(10886) <209> 

100 DATA 200,208,237,169,0,141,18,17,174,1 

8,17,189,32,18,32,210,255,238,18 <039> 

110 DATA 17,173,18,17,201,200,208,237,169, 

13,32,210,255,169,9,32,210,255,32 <038> 

120 DATA 96,16,169,0,141,18,17,174,18,17,1 

89.32.19.32.210.255.238.18.17.173 <202> 
130 DATA 18,17,201,200,208,237,169,0,141,1 

8,17,174,1B,17,189,32,20,32,210 <019> 

140 DATA 255,238,18,17,173,18,17,201,200,2 

08,237,169,13,32,210,255,169,9,32 <209> 

145 REM-BLOCK 4-(8796) <083> 

150 DATA 210,255,173,10,17,56,233,7,141,10 

,17,201,249,240,7,201,253,240,11 <21B> 

160 DATA 76,65,13,169,0,141,11,17,76,65,13 

,32,204,255,169,4,32,195,255,96 <179> 

170 DATA 169,128,141,16,17,141,17,17,173,1 

1,17,141,14,17,141,2,17,173,10,17 <227> 

180 DATA 141,13,17,141,1,17,173,12,17,141, 

3,17,32,110,15,173,9,17,240,9,24 <148> 

190 DATA 173,16,17,105,3,141,16,17,173,13, 

17,208,12,169,0,141,14,17,169,255 <141> 

195 REM-BLOCK 5-(67B7) <197> 

200 DATA 141,13,17,208,3,206,13,17,173,13, 

17.141.1.17.173.14.17.141.2.17.173 <016> 
210 DATA 12,17,141,3,17,32,110,15,173,9,17 

,240,9,24,173,16,17,105,12,141,16 <008> 

220 DATA 17,206,13,17,173,13,17,141,1,17,1 

73,14,17,141,2,17,173,12,17,141 <053> 


230 

240 


245 

250 

260 

270 

280 

290 

295 

300 

310 

320 

330 

340 

345 

350 

360 

370 

380 


390 

395 

400 


ni .1 


410 

420 


440 

450 


460 


470 

480 

490 

500 


DATA 3,17,32,110,15,173,9,17,240,9,24, 
173,16,17,105,48,141,16,17,206,13 
DATA 17,173,13,17,141,1,17,173,14,17,1 
41,2,17,173,12,17,141,3,17,32,110 

REM-BLOCK 6 -(7229) 

DATA 15,173,9,17,240,12,24,173,16,17,1 
05,64,141,16,17,238,17,17,206,13 
DATA 17,208,7,169,128,141,17,17,208,11 
1,173,13,17,141,1,17,173,14,17,141 
DATA 2,17,173,12,17,141,3,17,32,110,15 
,173,9,17,240,9,24,173,17,17,105 
DATA 6,141,17,17,206,13,17,173,13,17,1 
41,1,17,173,14,17,141,2,17,173,12 
DATA 17,141,3,17,32,110,15,173,9,17,24 
0,9,24,173,17,17,105,24,141,17,17 

REM-BLOCK 7-(7422) 

DATA 206,13,17,173,13,17,141,1,17,173, 

14.17.141.2.17.173.12.17.141.3.17 
DATA 32,110,15,173,9,17,240,9,24,173,1 

7.17.105.96.141.17.17.96.173.1.17 
DATA 141,0,17,173,3,17,141,4,'7,173,1, 
17,41,248,141,1,17,173,2,17,- ,1 

DATA 141,2,17,173,4,17,41,248,141,4,17 
,173,3,17,41,7,141,3,17,169,0,141 
DATA 5,17,173,4,17,141,6,17,160,4,24,1 
09,6,17,144,3,238,5,17,136,208,244 

REM-BLOCK 8-(7523) 

DATA 141,4,17,160,3,24,46,4,17,46,5,17 
,136,208,246,173,3,17,24,109,4,17 
DATA 144,3,238,5,17,24,109,1,17,144,3, 
238,5,17,24,133,2,173,5,17,109,2 
DATA 17,105,32,133,3,173,0,17,41,7,141 
,0,17,169,7,56,237,0,17,141,0,17 
DATA 208,10,169,1,141,7,17,173,0,17,24 
0,14,169,1,141,7,17,24,14,7,17,206 
DATA 0,17,208,248,24,160,0,177,2,141,8 
,17,13,7,17,56,237,8,17,208,8,169 

REM-BLOCK 9-(10566) 

DATA 1,141,9,17,76,45,16,169,0,141,9,1 
7,96,169,4,162,4,160,0,32,186,255 
DATA 169,0,32,189,255,32,192,255,169,6 
, 162,4,160,6,32, 186,255,162,6,32 
DATA 201,255,169, 16,32,210,255,32,204, 
255, 169,6,32, 195,255,162,4,32,201 
DATA 255,96,169,8,32,210,255,169,27,32 
,210,255,169,16,32,210,255,169,0 
DATA 32,210,255,169,40,32,210,255,96 
S=0:FOR T=1 TO 82:READ A:S=S+A:POKE 49 
152+T,A:NEXT: IF S07213 TUEN F=l:GOTO 
1000 

S=0:FOR T=B3 TO 180: READ A:S=S+A: F'OKE 
49152+T,A:NEXT: IF S08794 THEN F=2:G0T 
O 1000 

S=0:FOR T=181 TO 276:READ A:S=S+A:POKE 
49152+T,A:NEXT: IF SO108B6 THEN F=3:G 
OTO 1000 

S=0:FOR T=277 TO 376:READ A:S=S+A:POKE 
49152+T,A:NEXT:IF S<>8796 THEN F=4:GO 
TO 1000 

S=0:FOR T=377 TO 480:READ A:S=S+A:POKE 
49152+T,A:NEXT: IF S067B7 THEN F=5:BO 
TO 1000 

S=0:FOR T=481 TO 583:READ A:S=S+A:POKE 
49152+T, A:NEXT: IF S07229 THEN F= 6 : SO 
TO 1000 


510 S=0:FOR T=584 TO 691:READ A:S=S+A:POKE 
49152+T,A:NEXT: IF S07422 THEN F=7:GO 
TO 1000 

520 S=0:FOR T=692 TO 801:READ A:S=S+A:POKE 
49152+T,A:NEXT: IF S07523 THEN F= 8 :GO 
TO 1000 

530 S=0:FOR T=802 TO 890:READ A:S=S+A:POKE 
49152+T, A: NEXT: IF SO10566 THEN F=9: G 
OTO 1000 

540 PR INT "ALLES OKAY !.'!“:END 
1000 PRINT“FEHLER IM BLOCK“;F 


<063> 

< 200 > 

<006> 

<084> 

<035> 
<161 > 

<144> 

< 020 > 

<023> 

< 220 > 

< 122 > 

<060> 

<070> 

<180> 

< 010 > 

<206 > 

< 112 > 

< 121 > 

<221 > 

<030> 

<254> 

<025> 

<034> 

<054 > 

<234 > 

< 151 > 

<128> 

< 183> 

<021 > 

<108> 

<234> 

<231 > 

<204 > 

<033> 

<214> 

<058> 

<239> 
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Listing 1. »BIGCOPY DATAs«. Bitte beachten Sie bei 
der Eingabe den Checksummer 64 in diesem Heft. 



64 


fe.de 

















Hardcopy-Routinen 


5 REM WICHTIG !!! 

6 REM BEIM EINGEBEN VON BIGCOPY ERZEUGER 

UNBEDINGT DIE REM-ZEILEN WEGLASSEN. 

10 REM BIGCOPY ERZEUGER ERZEUGT DAS DRUCK 
PROGRAMM BIGCOPY 64 AUF DISKETTE 
20 REM DAZU LAEDT MAN ZUERST BIGCOPY DATA 
S UND STARTET ES. 

30 REM WENN ALLES OKAY IST,LAEDT MAN BIGC 
OPY ERZEUGER EIN,LEGT EINE FREIE 
40 REM DISKETTE EIN UND STARTE DAS PROGRA 
MM MIT RUN1000. 

50 REM NACH CA. 1 MINUTE STEHT BIGCOPY 64 
AUF DISKETTE UND KANN JEDERZEIT 
60 REM EINGELESEN UND GESTARTET WERDEN. 
100 POKE 55,255:POKE 56,12:REM MASCHINENPR 
OGRAMM SCHUETZEN 

110 PRINT"<CLR}":PRINT"I7SPACE>-BIGCOP 

Y 64-“ 

120 PRINT"—FUER COMMODORE MPS B01 MATRIXD 
RÜCKER—" 

130 PRINT:PRINT"DRUCKER ANGESCHLOSSEN UND 
EINGESCHALTET ? (Y/N)" 

140 GET A*:IF A*<>"Y"THEN 140 
150 PRINT:PRINT:PRINT"WELCHER DER 7 HIRES 
GRAPHIKSPEICHER SOLL" 

160 PRINT"MIT BIGCOPY AUSGEDRUCKT WERDEN ? 
(1-7) " 

170 GET B*:A=VAL<B*>:IF<A<1>OR<A>7>THEN 17 

0 

180 PRINT:PRINT"ES WIRD BILD"jA;"AUSGEDRUC 
KT! " 

190 PRINT: F’RINT "JETZT NOCH CA. 13 MINUTEN 
GEDULD!":FOR T=1 TO 1000:NEXT 
200 A=A*32:POKE 3340,A:POKE 3336,32:REM A= 
BILDADRESSE 

210 SYS 3328:REM BILD WIRD NACH *2000 GEBR 
ACHT 

220 POKE 53265,59:POKE 53272,24:PRINT"1CLR 
}": REM BILD WIRD ANGEZEIGT 
230 SYS 3383:REM DRUCKROUTINE BEGINNT 
240 POKE 3340,32:POKE 3336,A 
250 POKE 53265,155:POKE 53272,21 
260 SYS 3328:REM BILD WIRD NACH A ZURUECKG 
EBRACHT 

270 PRINT“NOCH EIN BILD 7 IY/N)" 

280 GET Z* 

290 IF Z*="Y“THEN GOTO 110 
300 IF Z*<>"N"THEN 280 
310 IF Z*="N"THEN SYS 64738 
400 REM ZEILEN 1000-1040 ERZEUGEN BIGCOPY 
AUF DISKETTE 

1000 OPEN 1,8,1,"BIGCOPY 64" 

1010 PRINT#1,CHR*(1>;CHR*( 8 ); 

1020 FOR T=2049 TO 2687:PRINT#1, CHR<<PEEK< 
T)>;:NEXT 

1030 FOR T=2688 TO 3326:PRINT#1,CHR*(0);:N 
EXT 

1040 FOR T=49152 TO 50042:PRINT#1,CHR*<PEE 
KIT)>;:NEXT 
1050 CLOSE 1 

6 Gl'er 


< 171 > 

220 

NEXT X 


< 168> 


230 

A=0:X=I-3:GOSUB 1000 


<200> 

< 186> 

240 

IF A=1 THEN C=C+64 :G=G+1 


<170> 


250 

FOR X=I—4 TO 1-6 STEP -1 


<010> 

<206> 

260 

A=0:GOSUB 1000 


<053> 


270 

BI =2* (I —X—4) 


<217> 

< 1BB> 

280 

IF A=1 THEN G=G+21(BI+T)+2t(BI+2) 


< 164> 


290 

NEXT X 


<240 > 

< 123> 

300 

IF Y<100 THEN 0*=0*+CHR*(C)+CHR*(C) 


<166> 


310 

IF Y>99 THEN 02*=02*+CHR*<C)+CHR*<C) 


<230> 

<100> 

320 

IF Y<100 THEN U*=U*+CHR*(G)+CHR*(G) 


<048> 


330 

IF Y>99 THEN U2#=U2*+CHR*<G)+CHR*(G) 


< 115> 

<242> 

340 

NEXT Y 


<042> 

<024> 

350 

PRINT#4,CHR*(8)CHR*(27)CHR#(16)CHR* < 0) 




CHR*(40); 


<073> 

<089> 

360 

PRINT#4,0*02*CHR*(9) 


<090> 


370 

REM CHR*(8) STELLT BIT-MUSTER-MODUS 

E 


<080> 


IN 


<229> 


380 

REM CHR*(27 > CHR*(16)CHR*(0)CHR* < 40) 

S 


< 134> 


TELLT DIE DRUCKSTARTADRSSE JEDER 


<185> 


390 

REM ZEILE AUF 40 PUNKTE NACH RECHTS 

E 


<004> 


IN 


<013> 

< 119> 

400 

REM CHR*(9) STELLT DEN BIT-MUSTER-MODU 




S WIEDER AUS 


< 114> 

<086> 

'410 

PRINT#4,CHR*(8)CHR*(27)CHR#(16)CHR*(0) 




CHR#(40); 


< 133> 

<194> 

420 

PRINT#4,U*U2*CHR*(9) 


<090> 


430 

NEXT I 


<004> 

<152> 

440 

CLOSE 4:END 


<144> 


450 

REM PRUEFROUTINE OB DER GRAFIKPUNKT 

G 


<232> 


ESETZT ODER NICHT GESETZT IST: 


<047> 


< 178> 
<059> 
<157> 

< 152> 
<226> 
<043> 
<057> 

<1 


e« 


1000 IF X<0 THEN A=0:RETURN <022> 

1010 BY=(X AND 504)+40*(Y AND 24B)+(Y AND 

7) <029> 

1020 BI=2T <7—(X AND 7)) <051> 

1030 S=PEEK(8192+BY) <21B> 

1040 IF(S OR BI)—S THEN A=1 <212> 

1050 RETURN <092> 

© 64'er 


Listing 3. »Basic Druck«. Bitte beachten Sie bei 
de'' ngabe den Checksummer 64 in diesem Heft. 


<IB 0 > 

<041 > 


< 173> 




<044> 




< 012 > 

600 

INPUT"CCLR,DOWNINUMMER DES BILDES";D: 

<129> 

< 161 > 

610 

FOR C=1 TO 7:Z=PEEK<8085+0 

<250> 

< 180> 

620 

IF Z=D THEN 6=32#D:GOTO 650 

< 145> 


640 

NEXT 

< 142 > 

< 221 > 

650 

IF A=5 THEN A=4:LOAD"HI—PRINT",8,1 

<154> 


660 

POKE 3340,G:POKE 3336,32:SYS 3328:P0KE 


<247> 


53265,59:POKE 53272,24 

<076> 


665 

SYS 3383 

< 182> 

<069> 

670 

POKE 3340,32:POKE 3336,G:SYS 3328:P0KE 


<045> 


53265,155:POKE 53272,21 

<091 > 


680 

690 


IF A=5 THEN RETURN 
A=1 GOTO 50 


<229> 

<249> 


Listing 2. »BIGCOPY Erzeuger«. Bitte beachten Sie bei 
der Eingabe den Checksummer 64 in diesem Heft. 


© 64 'er 

Listing 4. »Anp. Hi-Eddi«. Bitte beachten Sie bei der 
Eingabe den Checksummer 64 in diesem Heft. 


100 REM BASICVERSION DER DRUCKROUTINE <126> 

110 REM KANN AUCH ALS UNTERROUTINE IN EIG 

ENE PROGRAMME EINGEBAUT WERDEN <085> 

120 REM ANPASSUNG AN ANDERE 7-NADEL—DRUCK 

ER SICHER MOEGLICH <214> 

130 OPEN 4,4:OPEN 6,4,6:PRINT#6,CHR*<16):C 

LOSE 6 :POKE 56,30 <183> 

140 REM OFFNET DRUCKKANAL UND STELLT ZEIL 

ENABSTANT FUER GRAFIK EIN <103> 

150 FOR 1=319 TO—3 STEP -7 <019> 

160 :0*="":02*="" <109> 

170 FOR Y=0 TO 199:C=128:G=128 <087> 

180 FOR X=I TO 1-2 STEP -1 <194> 

190 A=0:GOSUB 1000 <237> 

200 BI=2»(I-X) <021> 

210 IF A=1 THEN C=C+2tBI+2t(BI+l> <059> 




10 REM ZUR ERZEUGUNG VON HI-PRINT <032> 
20 REM BIGCOPY DATA PROGRAMM EINLADEN, <245> 
30 REM ZEILE450-1000 LOESCHEN <178> 
40 REM DAFUER FOLGENDE ZEILEN ANHAENGEN <241> 
450 OPEN 1,8,1,"HI-PRINT" <164> 
460 PRINT#1,CHR*(0);CHR*(13); <244> 
470 FOR T=1 TO 890:READ A <231> 
480 PRINT#1,CHR*(A); <208> 
490 NEXT <246> 
500 CLOSE 1 <001> 


© G4'e* 

Listing 5. »Hi-Print Erzeuger«. Bitte beachten Sie bei 
der Eingabe den Checksummer 64 in diesem Heft. 
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Ergänzen Sie j etzt 

f^Sammluna ! 
Schaffen Sie sich ein interessantes 

Nachschlagewerk und gleichzeitig 

ein wertvolles Archiv! 

Kennen Sie alle Ausgaben von 64'er? Suchen Sie einen ganz bestimmten Testbericht? Oder 
haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen 
Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf 
diesen Seiten eine Zusammenstellung aller wesentlichen Artikel von Ausgabe 4/84 bis 
Ausgabe 3/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben; Prüfen Sie, welche Ausgabe 
in Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach 
Zahlungseingang umgehend zur Auslieferung gebracht. 
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gab« 



Aktuell 



Computer 

Die netten 264 und 36« (von der CES in Las Vegaa) 

« 

4/84 


Heiße Messe :n det WuM CES (PC I2r PC 





8 

3/83 

DKO 

Da!«* P -nd ausUnditcho Notaweike 

Mt 

10/8« 


Inionratioaön «u Daterdorrübortragung 

8 

II/B4 


lnterosiani blu b.oan* dlo uloktioi\l.xhon Brief 

10 

12/8« 


käste r. 




Irfcmationaler Chaos Comraunicuon Congrew 

Hi 

n/ni 


Kreatives Ctuos (lnterv«iv cul dem CCC) 

12 

10/8« 


MCI Mail d.o schnelle Pc« 

" 

2/85 

Floppy 

Neu« 1451-Laufwcrk 

14 

3/05 


SFD 1002 

8 

0/84 

Mmmr 

Commoderr Fnehaustellung in l unkturt 

10 

11/0-4 


Consumer Electronics Shc.w m Cmcag i 

10 

8/8« 


LMO Neuigkuitun von de: H.nnov-,: Mv-:c 'H4 

8 

6/84 

Muak 

Muakneiuokfei&n aus den Lan - MIDI 

«4 

9/04 

Kaub 

Dor Sumpf 

12 

6/84 

kopieret 
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Anwendung 



Aböpper. 

Chechsunuasr (C 04 ur d VC 20) 

72 

1/85 


Chock*utr--nor fC U ur.d VC 20) 

« 

2/88 


MSE - Abüppea sieter und leicht genarbt 

e* 

2/85 


MaE - Abcpyen sicher und IcicH gomacht 

78 

3/85 


Neuer Chccksunmer 64 — bbtnchneli urd kutxet 

Vi 

VttS 

DFU 


IM 

9/i« 



24 

7/84 

Datei 

AdreÄ- um Telefomegatet 

64 

5/B4 


Programm Datei (VC 20) 

trj 

3/(M 

EPROM 

Dalvnbschnc-rei: Wie programmiere ich EPROMs’ 

162 

9/84 

fMBllo 

Fam&eripUnur.g mit dem VC r.0(AdM) 

M 

2/85 

Finensne 

Abgerechnet wird mit dem C 64 (AdM) 

GS 

8/8* 


Menugetteu.rto rmanxmathematü (AdMi 

68 

:o/B4 

Floppy 

De: Soltwarek-ii-oq für Üire Procramm« 

72 

7/84 


Di ucke:/Floppy ein- oder aosgcschaltct’ 

T7 

8/84 


Hypra Load Schnelle Ud-n von Diskette (LdM) 

07 

10/94 

Xaiendet 

Elc-kronscr*-* Nonzburh (VC 20) 

SO 

4/84 

Lehrer 

Lelu'-rkalende« (AdM) 

G« 

A/M 

L»rr.- 


76 

7/6« 

Programm» 




Maske 

BddschirnuskBn schnell ersellt 

78 

9/64 

M-in.-n.-tit 

Mairer-.itic-l-lUiic D.» Suput-B-wc Ml dun 

M 

13/84 


VC 30 (LdM) 



Monitor 

Ohne gute* W8rlcoug goto es nicht SMON rTtaU 1) 

M 

11/84 


Ohne autei We:luouo geht c-s nlchl: SMON (Tel) 2] 

61 

12/84 


Ohno gutes Wcitaoug gohr ea mehr SMON (Itaü 3) 

69 

i/8S 


Ohr.o gutes Werkzeug geht es mcM: SMON ObII 4) 

72 

2/115 

Morsen 


n 

6/84 

Mu-k 

DK* Muxk mach* der C 64 Eioktromkorgol (AdM) 

70 

9/M 


Musik. Munk, Musik. Synthesis« (AdM) 

51 

12/84 

Schach 

Sduchmcbter (AdM) 

M 

11/84 

5pcn 

Computer und Spor Ausweitung vor 

M 

4/U4 


DMM Eretgmnnen 




Der C 64 ab HandbaUtolner (AdM) 

58 

1/flS 


Cot Ziel mn dem C 64 (AdM 

52 

3/05 


Ohne Oigarustaion k-ui Ibx. LtoaMb (LdM) 

50 

3/85 

Strub. 

Do» c:ao Strub« Listing (VC 20) 

55 

7/B4 


VC 20 steuert Super 8 Kamera 

70 

2/85 

Toxrvorar 

Quiektest - Terrtverarbeiturg rum Abtippon 

M 

6/B4 

beduno 




U:o:-Port 

Analoger Meüvterr rem — analoge: Stellweri tau» 

78 

6/84 


Blumen ««Aon tmt dum C M (AdM) 

« 

7/*4 


Eopp.ung aber den User-Porr (VC 20) 

73 

8/8« 

Video 

VidvoVoßponn nut den VC JO 

N 

10/64 

Vokabeln 

Supcsvoc 

€9 

6/64 

Zcichrniatr 

Deutscher Zeicbensarr fOr den VC 70 

79 

9/64 


Grafik 



Algorithmus 

Dn sehneL'er Drawltne Algorithmus 

<9 

4/M 

Auflösung 

Sjpergraftk 11 (VC 20) 

73 

11/64 



61 

S/84 

ADometr.e 

Von allen Seiten Betaklet (SB) 

69 

12/64 

Befehls 

Sctcen Change 

94 

8/84 

erweitercng 




Dtegi.mm* 


82 

fl/84 

Elektio- 

Dekudechruscbes Zeichne: nui dem VC 20 

71 

VB5 

tochnik 




Funktionen 

CraCic leicht gemsehr 

70 

:i/84 



BO 

8/84 


dom VC 30) 


Stichwort 

Titel 

Seite 

Ans¬ 

aat* 


Ktsivardickuialaii m HUeu GraGk mit Hardbopy 

U« 

7/84 

Cialtk 

Bewegte Crafik und Ton mischen 


12'64 

Hardcopy 

;‘..’O-Hatdcopy mit dom VC 20 

*7 

J'M 


Der VC 1S25/MPS i08 als Grah.kdrucker 

83 

10'64 


D.e mphrfarfc.gi- iUtdcepy m-.t dem 1520 Rlottoi 

a< 

10/M 


Lin eigentlich unmögliches Programm (ibdG) 

74 

5/84 


Haidcopy Epson FX-80 

az 

10/M 


Hardcopy Oaraim-lOX 

8i 

!0/M 


Katdcocy MPSBC1-VC 1515 

82 

D4 


Haidcogy.ftU dun Sjvub: ijFX 3. nut Gor 1 •- > t lacel 

8) 

0/84 


Hardcopy mi! dem VC .350 

103 

7/H4 

Joystick 

30-OmHk mtt dem Joystick (VC 20) 

78 

i '14 

l'.caUP»; 

Gel Kca^i Pi= 

oe 

1! 64 

Schnitt 

O.ytr.pu compact 2 vm Centronics Intorfico 

8« 

10/64 

stellen 

SpriNa 

Cer SuperSpnte-Editor 

»9 

9'84 


Pseudo-Spntos auf a«n VC 

78 

11'64 


Sprite» ohne Esoterik 

7« 

70 

UM 

4'84 


Vier Pm udoVICä mit 32 Sprites 

76 

:/fl5 

Trickfilm 

Cor VC 20 als Latemo Magic« 

*4 

11/14 


Movrtrurirr (VC 20) 

78 

öam 

Tun). Grafik 

Thnle-Crafik - Ihe «ehr.eile Schildkröte (UM) 

«8 

UM 

Zeichnen 

HI-EDDI EmfentofischesZexAenatid 

MalpiogranuB (U>M) 

Spiel 

50 

i/BS 

Abcweuo: 

Castle er Do.m - AdverJure (LdM) 

« 

8/64 


Das Grab des PtmoOttM) 

51 

l' BS 

Actio« 

Apocalypse r«w 

lOf. 

10'M 


Crousi—ier (VC 2C ; 

124 

7'64 


Choot Minor (VC 20) 

104 

«M 


O » Bert (VC 20) 

76 

i'BS 


0 Botrvd (DSM) 

142 

7'M 


Schatzsucher <UtV> 

SO 

6/64 

Aicede 

lrrvader» 

74 

4/84 


Space Invadei (nur aul Dak) 

a: 

7/M 

Dentapiel 

SDVler oewuuK — Spielen in der dritten Dimension 

96 

12/64 


Mutermlnd aln Vaertoilcr 

81 

13/M 


Ritaei - mn Knnteipmgramm (VC 20) 

122 

7/64 

Goneraloi 

Spring VogeL spring (LdM) 

66 

9/M 

Geschick- 

ln den Untergrund mit c^m VC 20 (LdM) 

120 

6/M 

Uohkett 



a? 

0/M 


Schnutrer (VC 20 

76 

5/M 

Reaktion 

r^ape(VCM) 

H£ 

e/M 

Simulation 

FaliHunulator 

02 

5/M 


Ho. Wh»all 

96 

5/M 


Renn fahre: ohne Stiuahdni (VC 20) 

9c 

4'M 

SpMIhtU« 

Ctown No 1 (nur auf Dirtü 

80 

7/M 

Strategie 

Schiobung (VC 201 

77 

3/M 

Tkktik 

Fpedomic tVC (Wi 

112 

10/M 


Gehirntratnir.g mit Supermemoiy 

8! 

2/68 


Kämpfe wie im alten Rom - Caesar 

76 

4/64 

Wotibewotb 

Notlandung 

Tips A Trick. 

\K 

1/8$ 

Absrun 

Auto 

Cie Ebenen dc-a Abctumts 

» 

84 

11/84 

12/M 

Autoboot 

Autoboct beirr. C 54 

ES 

3/85 

Auloöatt 

AutoCad IUI den VC 20 

95 

e/84 


Autoatan m Theonc und Praxic 

128 

7/64 


Der Tnck mit dem Autoean 

117 

6/64 

Baue 

Baue Programme sniaen (VC 80) 

85 

•7 

S/84 

3'18 

Bane 

PRINT AI und RESTORE N (VC 201 

101 

9/84 

Etwetteiung 


Stiingr C 

li 

12/M 

Buchsabec 

Gtod« SuchÄabuß 

81 

1/15 

Daiaoctto 

Taat Tip« - di« «hwiDo KawcUo «VC 20) 
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33 

7/84 


Pascal - leuitur oifihiyei und ulogantor ala Basic 

40 

7/04 


Pascal - leatui-csnsicor und eleganter alr- Baste 

44 

0/M 


Wa. -Jt Co r-j|* 

41 

1/84 

T^xrveraibeP 

Te*f/erurbaitungsprogramir.e — MukTüberaeht 

47 

6/84 

tung 

Von dar Schreibmasehme zum Ttxisviicni 
(Auswuhlhdlo) 

34 

3/85 

Tip. 

DOS 31 Oil 1) 

40 

5/84 


DOS 5.1 TM 2) 

M 

9/M 


Wettbewerbe 



Einzeller 

Dm Tbp 10 (Einsailor) 

158 

ll/M 


Einseiler Wettbewerb- Die nächsten 14 

»S7 

1/95 

Kreta- 

Kracrwonrattiel tallwr michsn 

ISI 

12/M 

wonratsH 

Spme» 

Das sehOMte Spn» - Auflösung 

174 

7/M 

Unten 

Fonranorte Eingabe 

1» 

I/B5 

Programm 

Exxon - Sortieren mir Komfort 

154 

in 

Il/M 

10/M 


AU« Betrage and i a Jet Regel U den C tri, »lern nie* anoeu 
gecvnnreMThn«« (VC 20) 

Fcftgnde A b kurm pg e p muU« vei^eal« U3M - Längs «te» Mona*. 
AdM - Anwendung öos Monas SB - Suaoeiä Baac. 



Audi die bisher erschienen 
Sonderhefte können Sie 
jetzt direkt bestellen: 

TIPS STRICKS 

(L Programm-Sonderheft) 

Eine wahre Fundgrube an 
Ideen und Programmen 
für Computer-Profis und 
alle, die es werden 
wollen. 

BESTELLCODE: Tips&Tips 




ABENTEUERSPIEIE 

(2. Programm-Sonderheft) 
Auf mehr als 100 Seilen 
viele interessante fidven- 
tures. die Sie lange Zeit 
fesseln werden. Mit ab¬ 
geschlossenem Kure lur 
Programmierung eigener 
Abentouerepleie und zahl¬ 
reichen Lösungen profes¬ 
sioneller Adventures. 
BESTELLCODE: 
Abenteuerspiele 



SPIELE 

(3. Programm-Sonderheft) 
Heiße Listings für alle 
Spiele-Pdns: Sportspiele, 
SchieBspiele. Denkspiele. 
Spielogeneratoren, Äben- 
teuerspiele, Brettspiele. 
Taktikspielo, Geschick¬ 
lichkeitsspiele und eine 
Marktübereicht aller in 
Deutschland erhältlichen 
professionellen Spiele 
bringen alles, was das 
Herz der Spiele-Fans 
hö het schlagen läßt. 
BESTELLCODE: Spiele 



Neu: die 64'er-Sommelbox! 


Für alle Leser, die »64'er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64’er-Sammelbox! 


Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 


Oitcr-onllne.de 

64er-online.net 







































Hardcopy-Routinen 


Hardcopy mit 
dem Seikosha 
GP-550 

Über den seriellen Bus des C 64 kön¬ 
nen mit dieser Routine durch einen 
SYS-Befehl Grafiken in einfacher und 
in doppelter Größe zu Papier gebracht 
werden. 


Tippen Sie zunächst den Basic-Lader (Listing 1) ab und 
speichern ihn auf Diskette. Anschließend ist das Programm 
mit RUN < Return > zu starten. Es wird ein Maschinenpro¬ 
gramm ab Speicherzelle 49152 erzeugt und nach korrekter 
DATA-Summenkontrolle unter dem Namen »M/HCOPY 


GP-550A« abgespeichert. Tritt bei der DATA-Summen¬ 
kontrolle kein Fehler auf, kann das Maschinenprogramm wie 
folgt aufgerufen werden: 

Syntax der Hardcopyroutine: 

SYS49152((Pg))(,M,(L-1)*4+Br,LM)(;) 

Hierbei bedeuten: 

(...) Ein in spitzen Klammern stehender Ausdruck ist 
optional, kann also weggelassen werden. 

Pg Grafikseitennummer 0 < Pg < = 7. 

Durch die Angabe dieser Grafikspeicherkennziffer 
wird grundsätzlich der RAM-Bereich angespro¬ 
chen! 

Zum Beispiel: (0): nicht erlaubt (illegal quantity 
error), da dieser Bereich die 
Zeropage beinhaltet. 

(1): Standardgrafikspeicher 

(8192 bis 16383); wird auch 
angesprochen, wenn keine An¬ 
gabe zu Pg gemacht worden ist. 

(5): spricht das RAM unter dem 
Basic-ROM an. 

(7): Hardcopy einer Simons-Basic- 
Grafik, die unter dem Kernal- 
ROM liegt. 

M Moduskennzahl M = 0 (128) : 8-bit normal 

(revers) 

M = 1 (129): 16-bit normal 
(revers) 

L Länge L = 1 : einfache Länge / L = 2 : 

doppelte Länge 

Beachten Sie, daß die Zahl (L-1) einzugeben ist 
Br Breite 1 <= Br < = 3 


LM Linker Randabstand (siehe Druckeranleitung) 

Der größtmögliche Wert des Randabstandes ist von 
der Breite abhängig. Eine Überschreitung des 
erlaubten Wertes ergibt jedoch »illegal quantity 
error«, so daß kein Fehlausdruck durch Zeilenüber¬ 
lauf entstehen kann. 

Zusätzlich stellt Ihnen die Routine eine Zentrie¬ 
rungsautomatik zur Verfügung, die Sie durch 
»LM = 1« aktivieren können, 
sperrt Blattvorschub nach erfolgtem Ausdruck, so 
daß Sie mehrere Hardcopies abstandsfrei koppeln 
können. 


Beispiele: 

(1) SYS49152 

Ausdruck der Standard-Bitmap (8192-16383) mit Normalbe¬ 
legung der Parameter. (8-Bit normale, doppelte Breite, einfa¬ 
che Länge, mittenzentriert, Seitenvorschub) 

(2) SYS49152(7); 

Hardcopy einer Simons Basic-Grafik wie oben, aber ohne 
Seitenvorschub. 

(3) SYS49152,1,1,0 

Kleinstformat in 16-Bit-Auflösung ohne Randabstand. 

(4) SYS49152(3),128,6,5; 

Darstellung der Bitmap von 24576 bis 32767 im 8-Bit- 
Revers-Modus. Die Breite beträgt wie die Länge zwei, der 
linke Rand fünf Einheiten. 

Um dem Anwender eine möglichst flexible Nutzungsmög¬ 
lichkeit anbieten zu können, stehen neben der üblichen, oben 
dargestellten Parameterübergabe zusätzliche POKE- 
Optionen zur Verfügung, die zum Beispiel die Rahmenerstel¬ 
lung oder das Druckbild beeinflussen. 

Alle Möglichkeiten sind in den Tabellen 1 und 2 aufgeführt. 
Wichtig dabei ist: 

Sämtliche in Tabelle 1 aufgelisteten POKE-Optionen sind 
nur für die aktuelle Hardcopy gültig und werden nach Be¬ 
endigung des Druckvorganges automatisch abgeschaltet! 

Hingegen sind die Programmeingriffe, die in Tabelle 2 
stehen, dauerhaft, und müssen explizit zurückgesetzt 
werden. 


Adresse 

Wert 



49686 

96 

Rahmen ausschalten 

49741 

0 

oberen ... -> 


49731 

0 

unteren ... 

Rahmenteil 

^49705 

11 

linken ... 

49699 

11 

rechten ... j 

weglassen 

49515 

0 

Druckbild auflockern (M=0, BR=2) 


49531 

96 

Steuerung der Zeilenausgabe in Basic 
ermöglichen 

Einsprungadressen: 


49532 

(*) 

nächste Grafikzeile \ mit CHR$ (13) 

49537 

(*) 

bearbeiten; Fortsetzung: / ohne CHRS (13) 

49398 

(**) 

alternativen Grafikbereich in Druckerpuffer 
bringen (siehe Listing 3) 


(*) Im Unterschied zu (* *) werden zunächst interne Variablen 
angepaSt und dann nach (•*) verzweigt. 


Tabelle 1. Einmalig wirksame POKE-Optionen sowie 
Einsprungadressen 

Die Option POKE49531,96 trägt wesentlich dazu bei, die 
Hardcopyroutine um interessante Aspekte zu bereichern. 
Sie sorgt dafür, daß jedesmal, wenn eine Grafikzeile abgear¬ 
beitet worden ist, die Kontrolle zwischenzeitlich an Basic 
zurückgegeben wird. 

Dies eröffnet die Möglichkeit, vor oder hinter jeder Grafik¬ 
zeile einen Text zu senden. Mit einem kleinen Trick sind zwei 
oder drei Grafikseiten nebeneinander zu erstellen, vorausge¬ 
setzt, die maximale Zeichenanzahl wird nicht überschritten. 

Die prinzipielle Vorgehensweise dabei zeigen die Listings 
2 und 3. Dort verwendete Adressen finden sich auch in 
Tabelle (1). 

Listing 3 läßt sich noch effektvoll erweitern, indem 
geschickt der Elongation-Modus durch »PRINTCHR$(14);c 
zum Beispiel in Zeile 240 beziehungsweise »...CHR$(15);« in 
Zeile 210 ein- oder ausgeschaltet wird. Man erhält so zwei 
nebeneinander gedruckte Hardcopies mit einfacher und 
doppelter Breite. 
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Hardcopy-Routinen 


Adresse 

beeinflußt 

Funktion 

49260 

Geräteadresse 

Anpassen an zweiten Drucker 

49262 

Sekundäradresse Einschalten des Groß-/Kleinschrift- 
modus des Druckers (7); 

Anwendung wie Listing 1. 

49764 

LF-Spacing 

Zeilenabstand verringern (56); 


(siehe Drucker¬ 
anleitung) 

Komprimierte Darstellung 

49384 

Zeilenanzahl 

Grafikbildschirm nur teilweise repro¬ 
duzieren. 

49399 

Spaltenanzahl 



Tabelle 2. Adressen für dauerhafte Veränderungen 
durch POKE-Befehle 

In diesem Zusammenhang sei noch erwähnt, daß nach dem 
ersten Aufruf der Hardcopy-Routine alle Druckerbefehle nur 
noch mit einem normalen PRINT-Befehl gesendet werden 
dürfen, solange der Ausdruck nicht vollständig abgeschlos¬ 
sen ist. 

(Frank Jörgens/ah) 


Programm : hcopy gp550 


c000 c27v 


C000 

20 

79 

00 

c9 

28 

d0 

18 

20 

C0 

C008 

fl 

ae 

20 

al 

b7 

ca 

30 

56 

cc 

C010 

f 0 

0d 

ca 

e0 

06 

b0 

4f 

48 

09 

c018 

bd 

6f 

c2 

8d 

el 

C0 

68 

c9 

48 

c020 

2c 

f 0 

04 

a2 

01 

dB 

35 

20 

c5 

C028 

9b 

b7 

8e 

52 

c2 

a0 

00 

20 

f e 

c030 

fl 

b7 

8a 

29 

03 

f 0 

2f 

Bd 

54 

c038 

54 

c2 

8a 

29 

0c 

4a 

4a 

aa 

47 

C040 

86 

02 

f 0 

08 

ad 

52 

c2 

29 

c* 

C048 

80 

8d 

52 

c2 

eB 

8e 

53 

c2 

52 

C050 

20 

fl 

b7 

8a 

a8 

ae 

54 

c2 

7f 

C058 

ca 

88 

d0 

03 

bd 

5b 

c2 

85 

c8 

C060 

60 

dd 

5e 

c2 

90 

03 

4c 

48 

82 

C068 

b2 

a9 

7f 

a2 

04 

a0 

86 

20 

c3 

C070 

ba 

ff 

20 

C0 

ff 

a2 

7f 

20 

9d 

c078 

c9 

ff 

a2 

06 

bd 

61 

c2 

20 

de 

c080 

dd 

ed 

ca 

10 

f 7 

a4 

60 

C0 

b0 

c08B 

0a 

08 

20 

a2 

b3 

a0 

00 

20 

73 

C090 

df 

bd 

28 

b0 

0b 

ad 

00 

01 

Be 

C098 

8d 

01 

01 

a9 

30 

8d 

00 

01 

Bd 

i_e>=e> 

a<J 

BO 

Ol 

ZB 

üü 

cd 

aü 

Ol 

70 

C0a8 

01 

20 

dd 

ed 

20 

79 

00 

c9 

50 

c0b0 

3b 

d0 

06 

8d 

55 

c2 

20 

73 

59 

C0b8 

00 

a9 

47 

20 

f 2 

cl 

90 

02 

e6 

C0C0 

a9 

49 

8d 

59 

c2 

a9 

30 

aa 

2c 

c0c8 

ac 

54 

c2 

18 

69 

03 

e8 

e8 

76 

C0d0 

88 

d0 

f 8 

8d 

58 

c2 

8e 

57 

35 

C0d8 

c2 

a9 

00 

85 

dl 

8d 

50 

c2 

70 

c0e0 

a9 

20 

85 

d2 

8d 

51 

c2 

a9 

17 

C0e8 

19 

Bd 

4f 

c2 

ac 

50 

c2 

84 

55 

C0f 0 

dl 

ac 

51 

c2 

84 

d2 

a9 

28 

9a 

c0f 8 

85 

d7 

a2 

04 

bd 

56 

c2 

20 

6c 

C100 

dd 

ed 

ca 

10 

f 7 

a2 

07 

a0 

7a 

c 108 

07 

84 

9b 

78 

a5 

01 

48 

29 

ld 

Cll0 

fc 

85 

01 

bl 

dl 

95 

19 

ca 

09 

ciia 

88 

10 

f 8 

68 

85 

01 

a5 

dl 

8e 

c 120 

18 

69 

08 

85 

dl 

90 

02 

e6 

17 

c 128 

d2 

a2 

07 

16 

19 

08 

2a 

ac 

a4 

c 130 

53 

c2 

C0 

02 

f0 

05 

20 

f 2 

f 2 

c 138 

cl 

90 

0C 

28 

08 

2a 

e0 

04 

a7 











d0 

05 

20 

09 

c2 

85 

09 

28 

89 

ca 

10 

e0 

20 

09 

c2 

ac 

53 

56 

c2 

88 

f 0 

07 

a4 

02 

88 

f0 

d2 

02 

a5 

09 

ac 

54 

c2 

C0 

02 

67 

90 

Be 

f0 

05 

48 

20 

f c 

cl 

dl 

68 

48 

29 

ff 

20 

fc 

cl 

68 

00 

20 

f c 

cl 

c6 

9b 

10 

b2 

c6 

ea 

d7 

dB 

8a 

ea 

a9 

0d 

20 

dd 

f 6 

ed 

ac 

53 

c2 

88 

f 0 

07 

c6 

aa 

02 

dB 

03 

4c 

ec 

C0 

84 

02 

28 

a4 

dl 

Sc 

50 

c2 

a4 

d2 

8c 

00 

51 

c2 

ce 

4f 

c2 

f 0 

03 

4c 

40 

f 6 

C0 

ac 

55 

c2 

dB 

05 

a9 

e6 

0c 

20 

dd 

ed 

a2 

06 

bd 

68 

lb 

c2 

20 

dd 

ed 

ca 

10 

f 7 

a9 

18 

7f 

20 

c3 

ff 

a2 

ff 

Be 

6b 

73 

cl 

e8 

8e 

52 

c2 

8e 

55 

c2 

5f 

eB 

Se 

53 

c2 

8e 

4d 

c2 

eS 

55 

8e 

54 

c2 

a2 

80 

8e 

43 

c2 

9c 

a2 

07 

8e 

29 

c2 

a9 

08 

8d 

7b 

23 

c2 

a9 

20 

Bd 

el 

C0 

a9 

11 

ea 

8d 

7b 

cl 

8d 

16 

c2 

4c 

dd 

cc 

ff 

ac 

52 

c2 

4e 

52 

c2 

9f 

8c 

52 

'- 1- 

60 

20 

dd 

ed 

20 

53 

f 2 

cl 

90 

f 7 

a5 

09 

4c 

dd 

85 

ed 

ac 

52 

c2 

0e 

52 

c2 

8c 

d0 

52 

c2 

90 

02 

49 

ff 

ea 

a4 

bl 

d7 

C0 

28 

f0 

09 

88 

d0 

0f 

ae 

a4 

9b 

f0 

08 

d0 

09 

a4 

9b 

ee 

C0 

07 

dB 

03 

a9 

ff 

60 

ac 

76 

4f 

c2 

88 

d0 

0f 

20 

f 2 

cl 

5e 

90 

04 

e0 

04 

d0 

f 0 

a4 

02 

ae 

d0 

ec 

09 

80 

eB 

04 

f 0 

e6 

98 

C0 

18 

d0 

e2 

09 

01 

60 

00 

bf 

00 

00 

00 

01 

02 

00 

30 

34 

ba 

36 

47 

lb 

la 

0d 

00 

36 

lb 

lc 

01 

30 

4c 

lb 

39 

lb 

18 

lb 

f 3 

30 

30 

30 

4c 

lb 

36 

lb 

40 

96 

60 

80 

a0 

C0 

e0 

ff 

00 

ff 

5e 


c 140 
c 14B 
c 150 
c 158 
c 160 
c 168 
c 170 
cl78 
c 180 
c 188 
c 190 
c 198 
daß 
cla8 
clb0 
clb8 
clc0 
clcS 
cld0 
cld8 
c le0 
cle8 
cif 0 
cif 8 
c20B 
c208 
c210 
c218 
c220 
c228 
c230 
c 2 _ 
c240 
c248 
c250 
c258 
c260 
c268 
C270 


Listing 1. Basic-Lader zur Hardcopy-Routine mit dem 
GP-550. Bei der Eingabe bitte den MSE beachten. 


100 REM **************************** 

110 REM * BEISPIEL FUER DIE * 

120 REM « KOMBINATION VON * 

130 REM » GRAPHIK UND SCHRIFT * 

140 REM * IN EINER HARDCOPY * 

150 REM * MIT DEM SEIKOSHA GP-550A » 

160 REM **************************** 

170 REM 

180 DIM T*<25> 

185 LMAX=25:REM MAXIMALE TEXTLAENGE PRO 
ILE (HIER BEISPIELHAFT 25) 

190 REM TEXT ZEILENWEISE ABFRAGEN 
200 PRINT"<CLR>"!:FOR T=0 TO 24 
210 PRINT T+l CHR*<157>; 

220 INPUT". ZEILE ";T*(T) 

230 IF LEN(T* <T> > >LMAX THEN PRINT"I2UP>- 
OTD 210 

240 T*(T)="<5SPACEJ"+T*(T): REM ABSTAND 
HAFFEN 
245 NEXT T 

250 PRINT"<CLR,3DOWNJHARDCOPY ERFOLGT !“ 
260 REM ZEILENOPTION EINSCHALTEN 
270 POKE 49531,96 
280 REM HARDCOPY STARTEN 

Listing 2. Mischen von Grafik und Textausdruck 


ZE 


sc 


<091 > 
<225> 

< 114 > 

< 166> 
<133> 
<003> 

< 151 > 
<232 > 
<006> 

<050 > 

< 170> 
<1B4> 
<034) 
<130> 

< 012 > 

<239> 
<161> 
<153> 
<223> 
<034> 
<164 > 


- v. i 
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Hardcopy-Routi nen 


290 SYS 49152(1),0,1,0;:REM BEISPIELSWEISE <242> 
300 REM ZEILEN EINZELN AUS GRAPHIK UND TEX 


T ZUSAMMENSETZEN <130> 
310 FOR 1=1 TO 25 <0B0> 
320 PRINT T*(I-1):REM TEXT UND CHR*(13) <014> 
330 SYS 49537:REM NAECHSTE GRAPHIKZEILE BE 

RECHNEN <193> 
340 NEXT I <170> 
350 END <098> 


8 64'er 

Listing 2. Mischen von Grafik und Texiausdruck (Schluß) 


100 

REM 

******************************* 

<238> 

110 

REM 

* 

BEISP-FUER PARALELLAUSDRUCK * 

<240> 

120 

REM 

* 

ZWEIER GRAPHIKSEITEN 

* 

<220> 

130 

REM 

* 

MIT DEM SEIKOSHA GP-550AVC 

* 

<165> 

140 

REM 

* 

(ERWEITERBAR AUF DREI 

* 

<022> 

150 

REM 

* 

GRAFIKSEITEN 

* 

< 108> 

160 

REM 

*****************»*•***##*****-*-* 

<042> 

165 

: 




< 141 > 

170 

POKE 49531,96 : REM ZEILENOPTION 

EINSC 



HALTEN 


<015> 


180 PG=7:M3=0 : M4 = PG*2*16 : REM PG = GR 

PAHIKSEITENKENNZIFFER <076 > 
185 SYS 49152,0,1,0 : REM HARDCOPY STARTEN <249> 
190 FOR Z=1 TO 25 : REM 25 ZEILEN (EINFACH 

E LAENGE) <I62> 
200 REM ZEIGER AUF DIE ERSTE GRAPHIKSEITE 

ZWISCHENSPEICHERN <212> 
210 M1=PEEK(209) : M2=PEEKC210) <215> 
220 REM AUF ZWEITE GRAPHIKSEITE UMSCHALTEN <255> 
230 POKE 209,M3 : POKE 210,M4 <06B> 
240 SYS 49398 : REM HARDCOPY-EINSPRUNGADRE 

SSE <15B> 

250 REM ZEIGER AUF ZWEITE GRAPHIKSEITE ZWI 

SCHENSPEICHERN <102> 
260 M3 = F'EEK (209) : M4 = PEEK(210> <091> 
270 POKE 209,Ml : POKE 210,M2 : REM AUF ER 

STE GR.SEITE ZURUECK <I74> 
280 SYS 49532 : REM AUSDRUCKEN <182> 
290 NEXT Z <000> 
300 END <04B> 


© 64'er 

Listing 3. Parallelausdruck zweier Grafiken 
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Zeichengenerator 


Ein Zeichen¬ 
generator 
für den FX-80 

Das Programm MAKE-CHR gestattet 
es auf einfache Weise, komplette 
Zeichensätze für Drucker wie den 
FX-80 selbst zu erstellen. 

Es sind beliebige grafische Symbole und Schriftarten, 
insbesondere auch Zeichensätze mit doppelter Schrifthöhe 
(über zwei Druckzeilen) machbar. 

Die gewünschten Zeichen werden einfach mit Hilfe des 
Joysticks (und/oder Tastatur) in ein Bildschirmfenster ge¬ 
zeichnet und dann in einer relativen Datei (CHR-Datei) ab¬ 
gespeichert. Weiterhin enthält das Programm Routinen zum 
teilweisen oder vollständigen Kopieren der CHR-Dateien 
sowie zum Übertragen der Zeichensätze in das Drucker- 
RAM. Ein Drucker-Handling-Menü erlaubt das Setzen ver¬ 
schiedener Druckerparameter und das Ausdrucken der 
Zeichen. Bei jeder Eingabe kann mit der Taste »Pfeil nach 
links« ins Menü zurückgesprungen werden. 

Bei jeder Eingabe wird ein Default-Wert angezeigt, der bei 
leerer Eingabe erhalten bleibt. Eine neue Eingabe wird auto¬ 
matisch zum neuen Default-Wert. 

Die ins Drucker-RAM übertragenen Zeichensätze können 
von Textprogrammen benutzt werden. 

Zeichenerklärung für nachfolgende Beschreibung: 

& = Bildschirm * = Bemerkungen 

Fett = Ihre Eingabe 
ERSTELLE ZEICHEN 

& Aus welcher Datei willst Du lesen? Datei X 

& In welche Datei willst Du schreiben? Datei Y 
& ASCII ? ASCII X 

Die Zeichen werden aus der Datei X gelesen und in die 
Datei Y zurückgeschrieben. 

Datei X und Datei Y können natürlich auch gleich sein. ASCII 
ist der ASCII-Code des zu bearbeitenden Zeichens. 

1. Mit den CRSR-Tasten kann der Cursor im Bildschirmfen¬ 
ster plaziert werden. Die Taste »*« dient zum Setzen und 
Löschen von Punkten. 

2. Zeichen können auch mit dem Joystick erstellt werden. 

Wird der Feuerknopf gedrückt, wird ein Punkt gesetzt 

(gelöscht). 

* Es dürfen keine 2 Dots in horizontaler Linie nebeneinan¬ 
der liegen (Eigenheit des FX-80)! 

Neun-DOT-Funktion: 

Die Neun-DOT-Funktion bewirkt, daß das Zeichen um einen 
Dot versetzt nach unten ausgedruckt wird (für Unterlängen, 
Kommas und so weiter). 

SEND CHR TO PRINTER 

& Welche Datei soll übertragen werden ? Datei X 
& von ASCII? ASCII X 

& bis ASCII? ASCII Y 

Durch die Eingabe von ASCII X und ASCII Y kann man errei¬ 
chen, daß nur ein bestimmter Teilbereich des Zeichensatzes 
ins Drucker-RAM übertragen wird. 

ASCII X=0 und ASCII Y=254 (Default-Werte, das heißt vor¬ 
eingestellte Werte) überträgt den gesamten Zeichensatz. 

* Nach dem Übertragen eines Zeichensatzes wird ein auto¬ 
matischer Druckertest durchgeführt. 

* Wird ein leerer Zeichensatz beziehungsweise ein Zei¬ 



chensatz mit Lücken übertragen, so wird das Drucker-RAM 
von den Lücken nicht überschrieben. Lücken werden vom 
Programm berücksichtigt und übersprungen! 
DRUCKER-HANDLING 

1. COPYROMTORAM 

Kopiert das Drucker-ROM ins Drucker-RAM. 

Das Drucker-RAM hat dann den normalen Epson- 
Zeichensatz. 

2. SELECT ROM/RAM 

Wählt Drucker-ROM oder -RAM aus. 

3. SET LINE-SPACE 

Setzt den Drucker auf den gewählten Zeilenabstand. Bei 
doppelt hohem Zeichensatz wird automatisch der richtige 
Zeilenabstand eingestellt. 

4. WÄHLE SCHRIFTART 

Auswahl einer der 64 Schriftarten des FX-80. 

5. TEST PRINTER 

Druckt den gesamten ASCII-Code. 

ERSTELLE CHR-DATEI 

Formatiert eine neue CHR-Datei. Der Name der CHR-Datei 
darf maximal 10 Zeichen lang sein. 

COPY SINGLE CHR 

& Aus welcher Datei wird gelesen? DATEI X 
& von ASCII? ASCII X 
& bis ASCII? ASCII Y 

& in welche Datei wird geschrieben? DATEI Y 
& ab ASCII? ASCII Z 

Kopiert den Bereich ASCII X bis Y aus DATEI X in die 
DATEI Y ab ASCII Z. 

* DATEI X und DATEI Y müssen sich auf einer Diskette 
befinden. 

COPY CHR-DATEI 

Kopiert die angegebene CHR-Datei vollständig — auch auf 
eine aiR're Diskette. (Rainer Busch/ah) 


1 GOTO 10 <179> 

2 »iMU HMHUH HUHMHHH HHHUU HHHUHMHHMHHMHMMK < 147 > 

3 * * <026> 

4 » RAINER BUESCH » <020> 

8 * * <031 > 

9 *«•«••*»******•****»**«*#»***«**#**** <154> 

10 POKE 650,128 :REM TASTEN-REPEAT <0B0> 

20 PRINT CHR*(142);CHR*(8):REM LETTERS BLO 

CKED <011> 

30 POKE 53280,ll:POKE 53281,12:REM FARBE <070> 
40 PRINT CHR*<144); <058> 

50 OPEN 3,4,4 <182> 

54 PRINT#3,CHR* < 7) :REM BEEP <141> 

60 PRINT#3,CHR*(27); "U" ;CHR*(1); <235> 

98 GOTO 200 <034> 

99 : <075> 

200 REM WERTZUWEISUNGEN *************** <158> 

202 DIM ZA*(18) s REM READ RECORD * <045> 

204 DIM ZA(18) :REM DITO <039> 

206 DIM RC* <256):REM COP-VARIABLE <237> 

208 A=139:REM ATTRIBUTE A <189> 

210 PA=1348 :REM SCREENRAM <170> 

212 PO=l :REM RECORD POSITION <061> 

214 N=18 :REM LAENGE DES RECORD <172> 

220 PC=55620:REM FARBRAM <176> 

230 XY=PA+X+Y*40 :REM SCREEN-POS <209> 

240 CO=PC+X+Y«40 :REM COLOR <151> 

244 FÜR 1=0 TO 7 s READ F(I):NEXT <100> 

246 DATA 128,64,32,16,8,4,2,1 <006> 

248 DIM P <11)I REM OUT FOR PRINTER <113> 

260 AS=32 :REM ASCI-CODE <213> 

262 AB=32 :REM ASCI-ANFANG <1S8> 

264 AA=1 :REM ASCI-ANFANG <167> 

266 AE=254 :REM ASCI-ENDE <064> 

270 LS=12 :REM LINE-SPACE <100> 

272 SA=0 :REM SCHRIFTART <134> 

280 RO*=CHR*(5)+“ROM"+CHR*(144)+"/RAM“ <227> 

282 RA*=“ROM/"+CHR*(5) + "RAM"+CHR* C144) <202> 

284 RM*=RO*:FL=l <00B> 


Listing. Zeichensatzgenerator »MAKE-CHR« 


"4‘f -< Jiime.de 
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Zeichengenerator 


999 : 

1000 
1010 
1015 

1020 


1025 


1030 

1040 

1050 

1060 

1070 

1004 


1086 

1090 

1100 

1101 

1102 

1104 

1108 

1110 

1120 

1130 

1140 

1160 

1170 

1190 

1999 

2000 
2020 


2030 

2040 

2042 

2050 

2054 

2060 

2100 

2110 

2120 

2132 

2134 

2136 

2140 

2160 

4999 

5000 
5010 
5020 

5030 

5040 

5041 

5042 
5044 
5050 


5060 

5064 

5070 

5085 

5090 

5999 

6000 
6010 

6012 

72 


REM MENUE ************************ 
PRINT"<CLR}":GX*="" 

PRINT CHR« (31) ; " (SPACE T RVSON} XLU.««-*.*.».l. 
{22SPACE} U.».*«»*.I* {RVOFF > " ; CHR« (144) 

PR1NT CHR*(31);"{SPACE,RVSON,SPACE > * < 
2SPACE>* (2SPACE>Q «.*«».» MAKE-CHR{2SPAC 
E >£±ÜSiW {2SPACE >* {2SPACE >* {SPACE , RVO 
FF>";CHR*(144> 

PRINT CHR*(31);" ¥{RVSON,3SPACE} J»*K ( 
22SPACE> .J.*_«J. {5SPACE, RVOFF }£" ; CHR* (144 
) 

PRINT:PRINT 

PRINT TAB(5);"{DOWN)(1) - ERSTELLE ZE 
ICHENSATZ 

PRINT TAB(5);"(DOWN>(2) - SENDE ZEICH 
ENSATZ ZU DRUCKER" 

PRINT TAB(5);"CDOWN>(3) - DRUCKER-HAN 
DLINE “ 

PRINT TAB(5) ; "{D0WNX4) - ";CHR*(155) 
;“OEFFNEN EINER REL-DATEI";CHR*(144> 
PRINT TAB (5) ; " {D0WNX5) - CHR* (155) 

;"COPY SINGLE CHR CHR*(144) 

PRINT TAB(5);“{DOWN>(6) - ";CHR*(155) 

;"COPY CHR-DATEI ";CHR*(144) 

PRINT TAB(5);"<3D0WN}J0YSTICK IN PORT 
2 !" 

GET G* 

GZ=GZ+G 

IF GZ=420 THEN G=-l:PRINT“{HOME}"SPC< 
14)"{2DOWNIBY R.BUESCH" 

IF GZ= 0 THEN G= 1:PRINT"CHOME>"SPC(1 
4)”(2D0WN,SPACE JMAKE—CHR{2SPACE}" 

IF G*="" GOTO 1100 
IF G*=“l“ THEN 7000 
IF G*=“2” THEN 6000 
IF G*="3" THEN 2000 
IF G*="4" THEN 5000 
IF 6 *="5" THEN 10500 
THEN 12000 


IF G*="l“ 
IF G*="2" 
IF G*= "3" 
IF G*="4" 
IF G#="5" 
IF G*="t-" 
GOTO 2000 


********** 


<213> 
< 161 > 
<1B6> 

<242> 


<248> 


IF G*=" 6 " 

GOTO 1100 

REM DRUCKER-HANDLING ************* 
PRINT"{CLR,DOWN,SPACE,RVSON,SPACE}*«* 
**** DRUCKER-HANDLING ***********{SPA 
CE,RVOFF}” 

PRINTsPRINT 
PRINT TAB( 6 );' 

M -> RAM“ 

PRINT TAB( 6 );' 

* 

PRINT TAB( 6 );' 

-SPACE" 

PRINT TAB( 6 );' 

IFTART" 

PRINT TAB( 6 );"{DOWN}(5) - ";CHR*(155> 
;"TESTE DRUCKER CHR*(144) 

GET G*:IF G*=“"THEN 2100 

THEN GOSUB 9100:GOTO 2020 
THEN GOSUB 9120:GOTO 2020 
THEN GOSUB 9160:GOTO 2020 
THEN GOSUB 9180:GOTO 2020 
THEN GOSUB 6500:GOTO 2020 
THEN 1000 :REM MENUE 


{DOWN}(1) - COPY CHR RO 


{DOWN}(2) - WAEHLE RM 


IDOWN}(3) - WAEHLE LINE 


{DOWN}(4) - WAEHLE SCHR 


REM OEFFNE RECORD DATEI 
PRINT"{CLR}" 

PRINT"{2SPACE}NAME DER RECORD DATEI ? 

PRINT"{2SPACE,RVSON.SPACE}";NA*;"(SPA 
CE,RVOFF,SPACE}";CHR*(5 >; 

GX*=NA*:GOSUB 15000:REM INPUT 
IF GX*=“F“ GOTO 1000 
NA*=GX*:PRINT CHR*(144) 

NXS=NA* 

PRINT:PRINT CHR*(31);"(2SPACE,RVSON,S 
PACE}”;NA*;“(SPACE,RVOFF,SPACE}“;CHR* 
(144);"WIRD ERSTELLT" 

GOSUB 10000 
OPEN 2,8,15 

GOSUB 6700:REM DISC-ERROR 
CLOSE 2 
GOTO 1000 

REM SEND RECORD TO PRINTER ******* 
PRINT"(CLR,2RIGHT,DOWN}WELCHER ZEICHE 
NSATZ SOLL UEBERTRAGEN 
PRINT“(2SPACE}WERDEN(2SPACE}? 


<239> 

< 222 > 

<021 > 

< 190 > 
<017> 

< 115> 

< 140> 

<195> 

< 135> 
<086> 
<137> 

<201 > 

<019> 

<040> 

< 085 > 
< 220 > 
<086> 
<237> 
<205> 
<024> 
<130> 
<197> 
<075> 
S46R 

<051 > 
<204> 

<143> 

<122> 

< 101 > 

<058> 

<163> 

<136> 

<097> 

<044> 

<056> 

<252> 

< 165> 
<197> 
<076> 

< 149> 
<239> 

< 172> 

<107> 

<080> 

<008> 

<10B> 

<228> 

<196> 


<164> 

<214> 

<158> 

<223> 

< 022 > 

<204> 

< 133> 
<069> 

< 114> 
<209> 


6013 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 
6032 
6040 

6042 

6044 

6046 

6048 

6050 

6054 

6056 

6058 

6060 

6070 

6075 

6080 

6120 

6150 

6170 

6180 

6182 

6190 


6195 


L'll 


6220 

6230 

6240 

6298 

6300 

6310 


6320 

6499 

6500 

6505 

6506 
6510 

6512 

6514 

6516 

6518 

6520 

6530 

6532 

6540 

6542 

6544 

6580 

6590 

6600 

6620 

6630 

6640 

6660 

6699 

6700 
6710 
6720 


PRINT"{DOWN,2SPACE,RVSDN,SPACE}";NA*; 
“(SPACE,RVOFF,SPACE}";CHR*(5); 
GX*=NA*:GOSUB 15000:REM INPUT 
IF GX*="*-" GOTO 1000 
NA*=GX*:PRINT CHR*(144) 

NX*=NA* 

IF LEFT*(NA*,3)=“BIG"THEN LS =8 

PRINT"{DOWN,3SPACE}WELCHE ASCI-CODES 

?":PRINT 

PRINT"(2SPACE}VON(2SPACE,RVSON}";AA; " 
(LEFT,SPACE,RVOFF,SPACE}";CHR*(5); 
GA=1:GX*=STR*(AA):GOSUB 15000:REM INP 
UT 

IF GX*="«-"GOTO 1000 
AA=VAL(GX*) 

IF AA>256 GOTO 6027 
PRINT CHR*(144):PRINT 

PRINT"(2SPACE}BIS(2SPACE,RVSON}";AE;” 
{LEFT,SPACE,RVOFF,SPACE}";CHR*(5); 
GA=1 :GX*=STR* (AE) : GOSUB 15000.-REM INP 
UT 

IF GX*="*-”GOTO 1000 
AE=VAL(GX*) 

IF AE>256 GOTO 6042 
PRINT CHR*(144):PRINT 
OPEN 1,8,2,NA* 

OPEN 2,8,15 

GOSUB 6700:REM DISC-ERROR 
AS=AA 

PRINT#2,"P"+CHR*(98)«CHR*(AS)+CHR*(0) 
+CHR*(1> 

FOR 1=1 TO 17:IF VA=1 THEN GOTO 6180 
B£T#1,RC*:IF RC*=""THEN RC*=CHR*(0> 

IF 1=1 THEN GOTO 6300:REM TESTE ZEICH 
EN 

PRINT#3,RC*; 

RC*="" 

NEXT I 

GOSUB 6700:REM DISC-ERROR 
PRINT CHR*(5);"(2SPACEIASCI =(SPACE,R 
VSON}";AS;“(LEFT,SPACE,RVOFF,18SPACE, 
UP}";CHR*(144) 

RK*=“":VA=0 
AS=AS+1 

IF AS< =AE GOTO 6070 

CLOSE 2:CLOSE 1 

GOSUB 9140:REM BEL.RAM 

GOSUB 6500:REM TESTE PRINTER 

GOTO 1000:REM MENUE 

REM TESTE ZEICHEN **************** 

IF RC*=CHR*(255)THEN PRINT SPC(17);“R 
ECORD EMPTY{UP}":RC*="":VA=1:GOTO 618 
0 

GOTO 6150 

REM TEST DRUCKER ***************** 
GOSUB 9194:REM SET SCHRIFT 
GOSUB 9174:REM SET LINE-SPACE 
FOR 1=1 TO 64 ;GOSUB 6540:NEXT:PRINT# 
3,CHR*(10) 

FOR 1=128 TO 192:GOSUB 6540:NEXT:PRIN 
T#3,CHR*(10) 

FOR 1= 65 TO 96:GOSUB 6540:NEXT:PRINT 
#3,CHR*(10) 

FOR 1=193 TO 224:GOSUB 6540:NEXT:PRIN 
T#3,CHR*(10) 

FOR 1= 97 TO 126:GOSUB 6540:NEXT:PRIN 
T#3,CHR*(10> 

FOR 1=225 TO 254:GOSUB 6540:NEXT:PRIN 
T#3,CHR*(10) 

PRINT#3,CHR*(13) 

RETURN 

IF 1=7 THEN 1=28 
IF 1=127 THEN 1=128 
IF 1=135 THEN 1=156 
PRINT#3,CHR*(I); 

RETURN 

REM BEEP ************************* 

FOR 1=1 TO 3 

PRINT#3,CHR*(7>;:FOR K=1 TO 150:NEXT 

NEXT I 

RETURN 

REM INPUT DISC-ERROR ************* 

1NPUT#2,E,E*,El,E2 

IF EO0 THEN CLOSE 1: CLOSE 2: GOTO 680 
0 


<083> 

<228> 

<072> 

<192> 

< 159> 

< 111 > 

< 141 > 

< 165 > 

<047> 

<079> 

< 158> 
<015> 
<052> 

<019> 

<063> 

<095> 

<207> 

<225> 

<070> 

<182> 

<134> 

<195> 

<028> 

<243> 

< 220 > 

<026> 

<232> 

<090> 

< 222 > 

<168> 

<065> 


<066> 
< 186> 

< 1 78 > 

< 193> 

< 1 46> 
<021 > 
<142> 
<08B> 
<253> 


< 197> 
<124> 

< 125> 
<240 > 
<232 > 

< 198> 

<229> 

<247> 

< 136> 

<048> 

<155> 

< 159> 

< 144 > 
<240> 
< 202 > 
< 102 > 
<150> 
<232 > 
<042> 

< 102 > 

< 113> 
<001 > 
<118> 

< 114> 
<071 > 
<035> 
<052> 


<074> 


Listing. Zeichensatzgenerator (Fortsetzung) 







Zeichengenerator 


6730 

6800 

6802 

6810 

6820 

699V 

7000 

7010 

7020 

7022 

7030 

7031 

7032 
7050 

7052 

7054 

7058 

7059 

7060 
7070 
7100 
7110 

7199 

7200 
7210 
7215 

7218 

7220 

7222 

7230 

7348 

7350 

7360 

7362 

7364 

7366 

7367 

7368 
7390 

7399 

7400 
7410 
7415 
7420 
7450 

7499 

7500 
7600 
7610 
7620 
7630 
7640 
7650 
7680 
7690 
7720 
7730 
7740 
7750 
7755 
7760 
7790 
7799 
8200 
8210 

8220 

8230 

8299 

B400 

8410 

8415 

8420 

8425 

8430 

8432 


RETURN 

PRINT"<CLR,2DOWN,2SPACE>ERROR DN DISC 
: ”;CHR*(5);E*;CHR*(144) 

PRINT“{2D0WN,2SPACE >PRESS ANY KEY TO 
RESTART ! 

GET GS:IF G*="“GOTO 6810 
RUN 

3 

REM ERSTELLE ZEICHEN ************* 
PRINT“<CLR>" 

PRINT M {2SPACE>AUS WELCHER DATEI WILLS 
T DU LESEN ?* 

PRINT“T2SPACE,RVSON,SPACE>“j NXS;“{SPA 
CE,RVOFF,SPACE >“;CHRS(5); 

GX*=NX*:GOSUB 15000:REM INPUT 

IF GXS= “GOTO 1000 

NXS=GXS:PRINT CHRS(144):PRINT:PRINT 

IF NYS=""THEN NYS=NXS 

PRINT"{2SPACEJIN WELCHE DATEI WILLST 

DU SCHREIBEN ?" 

PRINT“T2SPACE,RVSON,SPACE >“J NYS;“<SPA 
CE , RVOFF, SPACE > ” ; CHRS ( 5 ) ; 

GXS=NYS:GOSUB 15000:REM INPUT 
IF GX*="F" GOTO 1000 
NYS=GXS:PRINT CHRS(144):PRINT 
PRINT"<CLR>" 

GOSUB 10100:REM ZEICHENEINGABE 
IF 6 XS="*-" GOTO 1000: REM MENU 

REM ABFRAGE ********************** 

G*=“: GET GS 

IF GS="N" THEN GOSUB 9900:GOSUB 8700 
: REM LOESCHE «< ANFANGSPOS 
IF GS="9" THEN GOSUB 8500 
:REM 9-DOTS 

IF G*="t-" GOTO 1000:REM MENUE 
IF GS="F" THEN GOSUB 11000:GOSUB 8700 
:REM FILL & ANFANGSPOS 
IF GS=CHRS<13> THEN GOSUB 10100:REM E 
INGABE 

IF GS=CHRS(136)THEN GOSUB 9400:GOTO 8 
800:REM LESE NÄCHSTES ZEICHEN 
IF GS=CHRS(133)THEN GOTO 7400:REM SAV 
EN 

IF GS=“<UP>" THEN DY=-l:GOTO 8400 
IF GS="{DOWNJ" THEN DY= 1:GOTO 8400 
IF GS="<LEFT>" THEN DX=-l:GOTO 8400 
IF G*="<RIGHT>" THEN DX= 1:GOTO 8400 
IF G*="Ä" THEN GOSUB 9800 
IF GS= "*" THEN GOSUB 9800 
GOTO 7500: REM JOYSTICK 

3 

GOSUB 9000 :REM ALTES FELD 
GOSUB 8600 :REM WRITE RECORD 
A=139:GOSUB 8550:REM RESET 9D0TS 
AS=AS+1:REM INCREM. ASCI 
GOTO 7100 sREM NEUE EINGABE 


REM JOYSTICK ****-*************♦*** 

P =PEEK(56320) 

JU= P AND 1 
JD= (P AND 2)72 
JL= <P AND 4)/4 
JR= (P AND B>/8 
FR= <P AND 16)/16 
FOR 1=1 TO 300:NEXT 

3 

IF JU=0 THEN DY=—13 GOTO 8400 
IF JD=0 THEN DY= lsGOTO 8400 
IF JL=0 THEN DX=—1:GOTO 8400 
IF JR=0 THEN DX= 1:GOTO 8400 
IF FR=1 THEN FA=1 

IF FR=0 THEN GOSUB 8200s REM TEST-FR 
GOTO 7210 sREM ABFRAGE 

3 

REM TEST-FR ********************** 

IF FROFA THEN FA=0: GOSUB 9800: RETURN 
:REM STAR/BLANK 

IF M=0 THEN GOSUB 9600:RETURN:REM STA 
R 

GOSUB 9700:RETURN:REM BLANK 

REM PRINT»*»***»«»»*»*»»*»*«*»»**» 

IF Y+DY>7 THEN DY=0: GOTO 7210 
IF Y+DY<0 THEN DY=0: GOTO 7210 
IF X+DX>10 THEN DX=0: GOTO 7210 
IF X+DX<0 THEN DX=0: GOTO 7210 
GOSUB 9400 
X=X+DX:Y=Y*DY 


<184> 


<054> 

<051 > 
<242> 
< 002 > 

< 117> 

< 192> 
<140> 

<179> 

<063> 

< 106> 
<066> 
<182> 
<037> 

<168> 

<096> 
<006> 
<094> 
< 112 > 
< 200 > 
<215> 

< 179> 
<063> 
<240> 

< 115> 

<199> 

< 161 > 
<137> 

<211 > 

< 022 > 

< 040> 


<218> 

<236> 

< 220 > 

<236> 

<162> 

< 15B> 
<007> 
<250> 
<242> 
<138> 

< 163> 
<208> 
<109> 
< 000 > 
<249> 
<127> 
<047> 
<139> 
<233> 

< 105> 
<043> 
<046> 

< 183> 
<060> 
<056> 
<047> 
<156> 
<054> 
<007> 

< 155> 
<217> 

< 119> 

<244> 
<047> 
<223> 
<064> 
<229> 
<231 > 
<185> 
<201 > 

< 151 > 

< 120 > 


8440 XY=PA+X+Y*40 <087> 

8442 CO=PC+X+Y*40 <071> 

8450 GOSUB 9500 <168> 

8455 DX=0sDY=0 <123> 

8460 GOTO 7210 <130> 

8499 s <093> 

8500 REM ATTRIBUTE A ****************** <009> 

8504 IF A=139 THEN A-UsGOSUB 8550:RETURN <216> 
8508 IF A=11 THEN A=139:GOSUB 8550:RETURN <154> 
8510 RETURN <186> 

8550 IF A=139 THEN DO*=“{1BSPACEJ" <029> 

8560 IF A=ll THEN DO*=CHR*(5)+“<3SPACE,RV 

SON,SPACE J9D0T ACTIV C2SPACE,RVOFF >"+C 
HR*(144) <237 > 

8570 PRINT"{HOME,5DOWN>“sDO* <02B> 

8590 RETURN <010> 

8599 : <193> 

8600 REM WRITE RECORD ***************** <107> 

8604 NA*=NY* <028> 

8610 XR*=CHR* (27) +"«<"+CHR* (0) +CHR* (AS) +CHR 

*(AS)+CHR*(A) <080> 

8640 FOR 1=0 TO 10:YR*=YR*+CHR*(P(I)):NEXT <102> 
8645 ZR*=XR*+YR* <139> 

8660 OPEN 1,8,2,NA* <24B> 

8662 OPEN 2,8,15 <200> 

8664 PRINT#2,"P"+CHR*(98)+CHR*(AS)fCHR*(0) 

+CHR*(1) <041> 

8666 PRINT#1,ZR* <186> 

8670 GOSUB 6700:REM DISC-ERROR <011> 

8680 CLOSE IsCLOSE 2 <120> 

8682 FOR 1=0 TO 10:P(I)=0:NEXT <080> 

8684 YR*="" <086> 

8690 RETURN <110> 

8700 REM ANFANGSPOSITION ************** <207> 

8710 X=0:Y=0 <105> 

8712 XY=PA+X+Y*40 <017> 

8714 CO=PC+X+Y*40 <239> 

8750 GOSUB 9500:REM NEUES FELD <162> 

8760 RETURN <182> 

8800 REM READ t. DISPLAY *************** <107> 

B802 NA*=NX* <100> 

8804 GOSUB 9900: REM NEW <099> 

8810 OPEN 1,8,2,NA* <144> 

On 88 V- ~PEN 2,B, 15 <096> 

8820 PRINT#2,"P“+CHR*(98 > +CHR*(AS)+CHR*(0) 

+CHR*( 6 ) <023> 

8830 FOR 1= 0 TO 11 <053> 

8835 GOSUB 6700:REM DISC-ERROR <178> 

8840 GET#1,ZA* <093> 

8841 ZA(I)=ASC(ZA*+CHR*(0)) <217> 

8842 IF ZA(0)=139 THEN A=139:GOSUB 8550 <157> 

8843 IF ZA(0)=11 THEN A=ll sGOSUB 8550 <034> 

8844 NEXT <218> 

B846 CLOSE 1:CLOSE 2 <032> 

8847 : <187> 

8850 FOR X=0 TO 10 <192> 

8852 FOR Y=0 TO 7 <157> 

8854 XY=PA+X+Y*40 <159> 

8856 CO=PC+X+Y*40 <125> 

8860 IF F(Y)=(ZA(X+l)AND F(Y)> THEN POKE X 

Y,42sP0KE CO,l <050> 

8864 NEXT Y <184> 

8868 NEXT X <180> 

8885 GOSUB 8700:REM ANFANGSPOS <160> 

8890 GOTO 7100:REM NEUEINGABE <150> 

8899 : <239> 

9000 REM UMRECHNUNG ******************* <099> 

9004 GOSUB 9400: REM ALTES FELD <140> 

9010 FOR X=0 TO 10 < 098> 

9020 FOR Y=0 TO 7 <071> 

9022 XY=PA+X+Y*40 <073> 

9030 IF PEEK(XY)=42 THEN P(X)=P(X)+F(Y) <005> 

9040 NEXT YsNEXT X <115> 

9090 RETURN <002> 

9100 REM COPY CHR-ROM TO RAM ********** <163> 

9104 PRINT#3,CHR*(27) 5 “:";CHR*(0);CHR*(0)j 

CHR*(0);CHR*(7)RETURN <009> 

9120 REM SELECT CHR-ROM/RAM *********** <095> 

9124 IF FL=1 GOTO 9140 <096> 

9126 RM*=RO*sFL»l <214> 

9130 PRINT#3,CHR*(27);;CHR*(0);CHR*(0); 

CHR*(7):RETURN <090> 

9140 RM*=RA*:FL=0:REM SEL.RAM <049> 

9144 PRINT#3,CHR*(27>s“X":CHR*(1>;CHR*(0); 

CHR*(7);sRETURN <188> 


Listing. Zeichensatzgenerator (Fortsetzung). Bitte bei der 
Eingabe den Checksummer auf Seite 6 beachten. 


330 ? 








Zeichengenerator 


9160 

9164 

9168 


9170 

9172 

9174 

9178 

9180 

9182 

9184 


91B6 

91BB 

9194 

9198 

9398 

9399 

9400 
9410 

9420 

9450 

9499 

9500 
9510 

9520 

9550 

9599 

9600 
9610 
9650 

9699 

9700 
9710 
9750 

9799 

9800 
9810 

9820 


REM LINE-SPACE ******************* <054> 

PRINT"(CLR,DOWN,2SPACE>WELCHEN ZEILEN 
ABSTAND WILLST DU ? <170> 


PRINT"CDOWN ,2SPACE >(0—85)(SPACE,RVSON 
}“LS“(LEFT,SPACE,RVOFF,SFACE>“CHR*(5) 

; <066> 
GX*=STR*(LS) :GOSUB 15000:LS=VAL(GX*)5 


IF LS>85 THEN 9160 <184> 

PRINT CHR*<144):PRINT <144> 

PRINT#3,CHR#(27>;"A";CHR*(LS);CHR*(7) 

; < 200 > 

RETURN <090> 

REM SCHRIFTART ******************* <023> 

PRINT"(CLR,DOWN,2SPACE >WELCHE SCHRIFT 
ART WILLST DU ? <074> 

PRINT"(DOWN,2SPACE)(0-64)(SPACE,RVSON 
} •• SA •• (LEFT , SPACE, RVOFF , SPACE ) " CHR* (5) 

; <171> 

GX*=STR*(SA>:GOSUB 15000:SA=VAL(GX*>: 

IF SA>64 THEN 9180 <243> 

PRINT CHR*(144):PRINT <160> 

PRINT#3,CHR*(27);“!"5CHR*CSA> jCHR*(7> 

5 <160> 

RETURN <110> 

END <000> 

: <231> 

REM ALTES FELD ******************* <030> 

IF PEEK(XY)=170 THEN POKE XY,42:P0KE 
CO,l <140> 

IF PEEK(XY)=160 THEN POKE XY,32:P0KE 
CO,I <144> 

RETURN < 108> 

: <077> 

REM NEUES FELD ******************* <156> 

IF PEEK(XY> =42 THEN POKE XY,170:POKE 
C0,1 <101> 

IF PEEK(XY)=32 THEN POKE XY,160:POKE 
CO,l <107> 

RETURN <210> 

s <177> 

REM PRINT STAR ******************* <146> 

POKE XY,170:POKE PC,1 <126> 

RETURN <054> 


REM PRINT BLANK ****************** <199> 

POKE XY,160:POKE PC,1 <098> 

RETURN <156> 

: <123> 

REM PRINT BLANK/STAR ************* <147> 

IF PEEK(XY) 170 THEN POKE XY,160:POKE 
CO,1:M=1:RETURN <241> 

IF PEEK(XY)=160 THEN POKE XY,170:POKE 


□TU. 


CO,1:M=0:RETURN <219> 

9899 : <223> 

9900 REM NEW ************************** <124> 

9910 FOR Y=0 TO 7 <199> 

9915 FOR X=0 TO 10 <241> 

9916 XY=PA+X+Y*40 <205> 

9918 CO=PC+X+Y*40 <171> 

9920 POKE XY,32:POKE CO,5 <131> 

9930 NEXT X:NEXT Y <043> 

9950 RETURN * <100> 

9999 : <069> 

10000 REM OEFFNE RECORD DATEI ********* <090> 

10010 OPEN 1,8,2,NA*+",L,"+CHR*(18) <011> 

10020 OPEN 2,8,15 <034> 

10030 PRINT#2,"P"+CHR*(9B)+CHR*(255)+CHR* < 

0)+CHR*(1) <194> 

10040 PRINT#1,CHR*(255):REM FREIGEBEN <115> 

10050 PRINT#2,“I" <236> 

10060 CLOSE IrCLOSE 2 <C232> 

10070 RETURN <222> 

10099 s <169> 


10100 REM ZEICHENEINGABE ************** <192> 

10104 GOSUB 9400 :REM ALTES FELD <224> 

10110 PRINT"(HOME,SPACE,RVSON,SPACE)";NX*; 

" —>“;NY*;"(SPACE,RVOFF >“;TAB(25);"(R 
VSON,SPACE >ASCI(SPACE,RVOFF >“;TAB(33 

) ; •' (RVSON , SPACE)CHR (SPACE, RVOFF > “ < 230 > 

10111 PRINT CHR*(5 )5 TAB(25);AS;"(LEFT,3SPA 

CE3";TAB(35); <106> 

10112 IF AS>32 AND AS<128 THEN PRINT CHR*( 

AS);iGOTO 10120 <031> 

10114 IF AS>160 AND AS<256 THEN PRINT CHR* 

(AS);:GOTO 10120 <135> 

10116 PRINT TAB(34);"(2SPACE>"; <071> 

10120 PRINT:PRINT CHR*(144> <128> 

10130 PRINT"(2SPACEJWHICH ASCI-CODE(9SPACE 

,8LEFT>“;CHR*(5); <112> 


10140 GX*=STR*(AS):GA=1:GOSUB 15000:REM IN 
PUT 

10142 IF GX*=“I-“ THEN RETURN 
10144 AS=VAL(GX*):PRINT CHR*(144> 

10146 IF AS=0 THEN 10100 
10150 IF AS>255 GOTO 10100 
10160 PRINT"(DOWN>“;DO*;“(DOWN)" 

10180 PRINT" (3SPACE>r£ R £ r (3SPACE,R 

VSON >£( 16SPACE)¥(RVDFF > " 

10190 PRINT"<3SPACE) = ";SPC(11);" = (3SPACE,R 
VS0N,2SPACE>** MAKE—CHR **(2SPACE,RV 
OFF>“ 

10200 PRINT" (3SPACE>—": SPC (11); " —(3SPACEI5T 
(RVSON,16SPACE,RVOFF >£" 

10220 PRINT"(3SPACEIa“;SPC(11);“ = 

10230 PRINT”(3SPACE) = ";SPC(11>;( 6 SPACEIR 
ET = ASCI 

10240 PRINT"(3SPACESPC(11);"-( 8 SPACE>* 
= MENUE 

10250 PRINT"(3SPACE)-";SPC(11>;"^( 8 SPACE}F 
- FILL 

10260 PRINT“(3SPACEI—";SPC(11);"-(8SPACE5N 
= NEW 

10270 PRINT" <3SPACE) = "; SPC(11 > ; "c:<8SPACE>9 
= 9DOTS 

10280 PRINT" (3SPACE> J CPCPCPCF.CPC.K " ; CHR* (5) 

;"(7SPACEJF7";CHR*(144);" = READ 
10290 PRINT TAB(23);CHR*(5);"F1";CHR*(144) 
;" = SAVE 

10292 PRINT"(3D0WN.2SPACE3PRINT YQUR CHARA 
CTER 

10294 PRINT"(2SPACEJWITH";CHR*(5);“ JOYSTI 
C 2";CHR#(144) 

10296 PRINT"(2SPACE>OR(2SPACE)";CHR*(5);“ 
CRSR/*";CHR*(144) 

10310 GOSUB 8700:REM ANFANGSPOSITION 
10320 RETURN 
10399 : 

10500 REM COPY FILES ****************** 
10550 PRINT"(CLR,RIGHT,DOWN,SPACE)AUS WELC 
HER DATEI WIRD COPIERT ? 

10560 PRINT"(2SPACE,RVSON,SPACE)";NX*;"(SP 
ACE,RVOFF,SPACE)“;CHR*(5) ; 

*0570 GX*=NX*:GOSUB 15000:REM INPUT' 

10571 IF GX*="<-" GOTO 1000 

10572 NX#=GX*:PRINT CHR*(144):PRINT 
10574 IF NX*="THEN 1000: REM MENUE 
10580 PRINT“(2SPACE)V0N ASCI(SPACE.RVSON)“ 

AA"(LEFT,SPACE,RVOFF,SPACE >“;CHR*(5) 

; 

10590 GA=1:GX*=STR*(AA):GOSUB 15000:REM IN 
PUT 

10592 IF GX*="«-"GOTO 1000 
10594 AA=VAL(GX*> 

10596 IF AA>256 GOTO 10590 
10598 PRINT CHR*(144):PRINT 
10600 PRINT"(2SPACE)BIS ASCI(SPACE,RVSON)" 
AE"(LEFT,SPACE,RVOFF,SPACE)“;CHR*(5 > 

10605 GA=1:GX*=STR*(AE):GOSUB 15000:REM IN 
PUT 

10606 IF GX*=“«-"GOTO 1000 

10607 AE=VAL(GX*> 

10608 IF AE>256 GOTO 10605 

10610 PRINT CHR*(144):PRINT"(3D0WN)" 

10620 PRINT"(2SPACE)IN WELCHE DATEI WIRD C 
QPIERT ?" 

10630 PRINT"(2SPACE,RVSON,SPACE>“;NY*;"(SP 
ACE, RVOFF , SPACE > " ; CHR* (5) ; 

10640 GX*=NY*:GOSUB 15000:REM INPUT 

10641 IF GX*="«-" GOTO 1000 

10642 NY*=GX*:PRINT CHR*(144):PRINT 
10644 IF NY#= “*"THEN 1000:REM MENUE 

10650 PRINT“(2SPACE)AB£2SPACE)ASCI(SPACE,R 
VSON)"AB“(LEF T,SPACE,RVOFF,SPACE >“;C 
HR*(5); 

10660 GA=1:GX*=STR*(AB):GOSUB 15000:REM IN 
PUT 

10661 IF GX*="4-"GOTO 1000 

10662 AB=VAL(GX*) 

10666 IF AB>256 GOTO 10590 
10668 PRINT CHR#(144):PRINT 
10670 PRINT CHR#(5>;"(DOWN,7SPACE)**** I A 
M BUSY !! ****(2D0WN)";CHR*(144) 

10699 : 

10700 REM COPY ************************ 
10730 YR*="":XR#="“ 

Listing. Zeichensatzgenerator (Fortsetzung) 


<145> 
<207> 
<165> 
<107> 
< 111 > 
< 163> 

<058> 


< 111 > 

<057 > 
<224> 

<234> 

< 121 > 

< 154> 

< 112 > 
<213> 

< 109> 
<055> 
<068> 

< 147> 

< 202 > 

<239> 

<218> 

<215> 

<150> 

<115> 

<045> 

<090> 

<050> 

<060> 

< 175> 


< 151 > 

<038> 
<071 > 

< 151 > 

< 114> 
<046> 


<236> 


<054> 
<085> 
<196> 
<238> 
<211 > 

< 163> 

< 116> 

<032> 

< 120 > 

<13B> 

<005> 


<167> 

< 172> 
<140> 
<227> 
< 200 > 
<1 16> 

<053> 

< 005 > 
<193> 
<175> 


tiätw- 
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Zeichengenerator 


10740 OPEN 2,8,15 
10750 FOR I=AA TO AE 
10760 OPEN 1,8,2,NX* 

10762 GOSUB 6700:REM DISC-ERROR 
107B0 PRINT#2,"P"+CHR*(98 > +CHR*(I)+CHRS(0) 
+CHR* <6) 

10784 FOR K=0 TO 11 

10790 GETttl ,G*: IF G*=""THEN G*=CHR*(0) 
10794 YR*=YR*+G* 

10798 NEXT K 

10800 GOSUB 6700:REM DISC-ERROR 
10806 CLOSE 1 
10808 : 

10810 OPEN 1,8,2,NY* 

10812 GOSUB 6700:REM DISC-ERROR 
10814 AS=AB+I-AA 

10816 X RS=CHR* (27) + “ & " +CHR* (0) +CHR* (AS) +CH 
R*(AS) 

10817 ZR*=XR*+YR* 

10818 PRINT" <9SPACE>ASCI = (SPACE,RVSON>"AS 
“ (LEFT, SPACE ><-" I “ (LEFT, SPACE, RVOFF , U 
P,2SPACE >" 

10820 PRINT#2,"P"+CHR*(98)+CHR*(AS)+CHR*(0 
)+CHR*(1) 

10830 PRINT#1,ZR* 

10832 GOSUB 6700:REM DISC-ERROR 
10840 CLOSE 1 

10850 ..ZR*=". 

10890 NEXT 1 

10894 CLOSE 2 

10910 GOTO 1000:REM MENUE 

10999 : 

11000 REM FILL «tu»»******#***»»#»#»** 

11010 FOR Y=0 TO 7 

11020 FOR X=0 TO 10 STEP 2 
11030 XY=PA+X+Y»40 
11040 CO=PC+X+Y*40 
11044 POKE XY,42:POKE CO,l 
11050 NEXT X:NEXT Y 
11060 RETURN 

12000 REM COPY—DATEI ****»*»*****»«*»«» 
12050 PRINT"(CLR,DOWN,2SPACEJDU KANNST JET 
ZT CHR-DATEIEN AUF EINE" 

12060 PRINT"(2SPACEJANDERE DISKETTE COPIER 
EN ! 

12070 PRINT"(2D0WN,2SPACEIWELCHE DATEI WIR 
D COPIERT ?" 

12080 PRINT"(2SPACE,RVSON,SPACE>"NX*;"(SPA 
CE,RVOFF,SPACE >";CHR*(5); 

12090 GX*=NX*:GOSUB 15000:REM INPUT 

12091 IF GXS="P" GOTO 1000 

12092 NX*=GX*:PRINT CHR*(144):PRINT:PRINT 
12094 IF NY*=""THEN NY*=NX* 

12100 PRINT“(2SPACE>NEUER DATEINAME ? 

12110 PRINT" (2SPACE , RVSON , SPACE 5 " NY* ; “ <SPA 
CE , RVOFF, SPACE > " ; CI IR* (5) ; 

12120 GX*=NY*:GOSUB 15000:REM INPUT 

12121 IF GX*="P" GOTO 1000 

12122 NY*=GX*:PRINT CHR*<144):PRINT 
12130 PRINT"C2D0WN,10SPACEJREADING(SPACE,R 

VSONJ";CHR*(31);NX*;CHR*(5) 

12140 PRINT“(DOWN,7SPACE>**»» COFFE-BREAK 
«*•**(DOWN>“;CHR*(144) 

12199 : 

12210 OPEN 1,8,2,NX* 

12220 OPEN 2,8,15 

12222 GOSUB 6700:REM DISC-ERROR 

12224 FOR K=1 TO 255 

12228 PRINT SPC(12);“ASCI = “;K;“(LEFT,SPA 
CE,UP>" 

12230 PRINT#2,"P"+CHR*(98) +CHR* (K ) +CHR* ( 0) 
+CHR*(1) 

12232 FOR 1=0 TO 16 

12240 GET#1,GS:IF G*=""THEN G*=CHR*(0> 
12244 IF 1=0 AND G*=CHR*(255) THEN RC*=CHR 
*(255):1=16 
12250 RC*(K)=RC*(K)+G* 

12260 NEXT I 

12270 GOSUB 6700 :REM DISC-ERROR 

12280 NEXT K 

12290 CLOSE 1:CLOSE 2 

12299 : 

12300 REM WRITE 

12310 GOSUB 6600:REM BEEP 

12350 PRINT"(CLR,DOWN,2SPACEJBITTE ANDERE 
DISKETTE EINLEGEN •<UP>" 

12360 TD*="DISKETTE(UPI“ 

12370 PRINT SPC(15);TD* 

12372 FOR N=0 TO 400 


<246> 

<096> 

<154> 

<073> 

<085> 
<106> 
<086> 
<067> 
<230> 
<1 1 1 > 
<149> 
< 116 > 
<20B> 
<123> 
<024> 

<139> 

<025> 


<140> 

< 167> 
<064> 

< 143 > 
<183> 
<205> 
<050> 
<245> 
<128> 

<051 > 
< 020 > 
<029> 
<103> 
<049> 
< 120 > 
<178> 

< 149> 

< 196> 
<028> 

< 116> 
<067?*«" 

<047> 

<224> 

<086> 

<046> 

< 162> 

<001 > 

< 1 60> 

<126> 

<244> 

<076 > 
<094> 

< 113> 

<005> 

<237> 

<078> 

< 202 > 

<007 > 
<176> 

<250> 

<229> 

< 158> 

< 010 > 

<032> 

<229> 

<150> 

<055> 

<186> 

< 176> 
<083> 
<105> 
<070> 

<248> 

<173> 

<089> 

<048> 


12380 

12382 

12400 

12410 

12420 

12430 

12440 

12499 

12500 
12550 
12560 


12570 


12580 

12582 

12584 

12599 

12600 
12604 
12608 
12610 
12612 


GET G*:IF G*<>""THEN GOTO 12500 
NEXT 

PRINT SPC(15);CHR*(5);TD*;CHR*(144) 
FOR N=0 TO 400 

GET GS:IF G*< >""THEN GOTO 12500 
NEXT 

GOTO 12370 
: 

REM COPY ON NEW DISC ************ 
PRINT CHR*(144) 

PRINT"(CLR,DOWN,10SPACE >WRITING(SPAC 
E,RVSON >";CHR*(31);" ";NY*;"(SPACE,R 
VOFF >“ 

PRINT TAB(5);CHR*(5)|"(2D0WNJ»»»* IT 
’S TEE TIME NOW »***•'; CHR* (144) <5D 

OWN > " 

PRINT TAB(10);"CREATING(SPACE.RVSON, 
SPACE}";NY*;"(SPACE,UP >" 

NA*=NY* 

GOSUB 10000:REM OEFFNE RECORD DATEI 


OPEN 1,8,2,NY* 

OPEN 2,8,15 

GOSUB 6700:REM DISC-ERROR 
FOR K=1 TO 255 

PRINT TAB(10);"(3SPACEJASCI =";K;"(L 
EFT,10SPACE,UP>" 

12620 PRINT#2,"P"+CHR#(98)+CHR*(K)+CHRS(0) 
+CHR*(1) 

12650 PRINTWl,RC*(K) 

12654 GOSUB 6700:REM DISC-ERROR 

12660 NEXT K 

12670 CLOSE 1:CLOSE 2 

12680 GOSUB 6600:REM BEEP 

12690 PRINT"(3D0WN,13SPACE>FERTIG ! 

12692 GET G*: IF G*='"'THEN 12692 
1269B RUN 

15000 REM GET-INPUT ■»*«****•»**«***»**** 

15010 G*=" ? ... 

SPACE,RVOFF>"s G=1:PRINT" “; 

15020 PRINT"(LEFT>”G*;GZ*; 

15030 GET G* 

15032 GZ=GZ+G 

151533, IF GZ=0 THEN G=1: GZ*=" (RVSON ,SPACE,R 
VOFF>“:PRINT CHR*(20);GZ*; 

15034 IF GZ=200 THEN G=-l:GZ*=CHR*(144)+“( 
RVSON, SPACE, RVOFF > “+CHR* (5 ) s PR I NT CH 
R*(20);GZ*; 

15035 IF G*=""GOTO 15030 

15036 : 

15038 IF GA=1 THEN GOTO 15200 
15040 IF G*=CHR*(13) GOTO 15180 
15042 IF G*="F" THEN GX*=G*:RETURN 

15050 IF G*=CHR*(20> GOTO 15150 

15051 IF LEN(GXS)>9 GOTO 15030 
15053 IF G*=CHR*(34> GOTO 15030 
15060 IF G*="(UP>" GOTO 15030 
15070 IF G*="(DOWN}" GOTO 15030 
15080 IF G*="(CLR>" GOTO 15030 
15090 IF G*="(HOME>" GOTO 15030 
15100 IF G*=CHR*(141) GOTO 15030 
15120 IF G*=CHR*(148) GOTO 15030 
15130 GXS=GX*+G* 

15140 GOTO 15020 

15150 IF LEN(GXS)=0 THEN G*="":GOTO 15030 
15160 GX*=LEFT*(GX*,LEN(GX*)-1) 

15170 GOTO 15020 
15180 PRINT CHR*(20); 

15185 IF GX*=“" THEN GX*=GY* 

15190 GA=0:RETURN 

15200 REM EINGABE NUMERISCH ? 


15201 

IF 

G*=CHR*(13)GOTO 15180 

15202 

IF 

G*=“*-" 

THEN 

GX*=3*:GA=0; 

15203 

IF 

G*=CHR*(20) 

GOTO 15150 

15209 

IF 

LEN (GXS) >=3 

GOTO 15030 

15210 

IF 

G*="0" 

GOTO 

15130 

15211 

IF 

G*="l" 

GOTO 

15130 

15212 

IF 

G*="2" 

GOTO 

15130 

15213 

IF 

G*="3" 

GOTO 

15130 

15214 

IF 

G*="4" 

GOTO 

15130 

15215 

IF 

G*="5" 

GOTO 

15130 

15216 

IF 

G*="6" 

GOTO 

15130 

15217 

IF 

GS="7" 

GOTO 

15130 

15218 

IF 

G*="8" 

GOTO 

15130 

15219 

IF 

G*="9" 

GOTO 

15130 

15230 

GOTO 15030:REM 

GET 
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Listing. Zeichensatzgenerator (Schluß) 



<217> 
< 200 > 
<165> 
< 086 > 
<001 > 
<248> 
<021 > 
<027> 
< 150 > 
<004> 


< 172> 


<235> 

<137> 
<198> 
<091 > 

< 129> 
< 220 > 
<078> 
<141> 
<054> 

<038> 

< 111 > 

<007> 

<187> 

<058> 

<046> 

< 186 > 
<033> 
< 202 > 
<038> 
< 161 > 

<136> 

< 157 > 

<044> 

<096> 

< 193> 


<218> 

<065> 

<024> 

<124> 

<017> 

< 143> 

< 148> 
<103> 
<095> 
<175> 

< 121 > 

< 196> 
<142> 
<209> 
<003> 
<187> 
<070> 
<068> 
<20B> 
< 100 > 
<009> 
<126> 
<249> 
<098> 
<1B0> 
<041 > 
<047> 
<09B> 

< 167 > 
<040> 
<170> 
<043> 

< 173> 
<046> 

< 176> 
<049> 

< 179> 

<052> 

< 197> 
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Grafik 


Grafik 2000 — 
Eine Basic- 
Erweiterung, 
die es in sich 
hat 

Diese Befehlserweiterung für den 
C 64 stellt Ihnen 41 neue Basic- 
Befehle und zwei neue Funktionen zur 
komfortablen Handhabung der mehr¬ 
farbigen HiRes-Grafik zur Verfügung. 

Die Befehle sind, wie die Befehle des Basic V2, abkürzbar, 
vollkommen in den Interpreter integriert und werden selbst¬ 
verständlich als Tokens gespeichert. Selbst nach »THEN« ist 
kein Doppelpunkt notwendig. 

Da die zwei unabhängigen Grafikschirme und das Pro¬ 
gramm selbst außerhalb des Basic-Speichers liegen, stehen 
dem Benutzer weiterhin 38911 Bytes für seine Programme 
zur Verfügung. Auch Sprites benötigen keinen Basic- 
Speicherplatz. 

Die Erweiterung selbst arbeitet außerordentlich schnell^ da 
zum Beispiel das Programm zum Errechnen einer Punkt¬ 
adresse weniger als 1/15000 Sekunde benötigt. So dauert 
beispielsweise das AusFILLen des leeren Bildschirmes weni¬ 
ger als 50 Sekunden! Auch die weiteren Befehle arbeiten 
ähnlich schnell. 

Diese Erweiterung ist zudem sehr sicher, denn selbst 
grobe Fehleingaben führen nicht zum Systemabsturz und 
somit Programmverlust (POKEs ausgenommen). 


Grundlagen 


Grafik 2000 unterstützt die farbige HiRes-Grafik des C 64. 
Diese Grafik ist aus 320 x 200 einzeln ansprechbaren Punk¬ 
ten aufgebaut. Dabei befindet sich der Punkt mit den Ko¬ 
ordinaten 0/0 in der linken oberen und der Punkt mit den 
Koordinaten 319/199 in der rechten unteren Ecke des Bild¬ 
schirmes. 

Die Farbinformation für je 8x8 Punkte liegt im sogenannten 
Video-RAM. Hier steht in den oberen vier Bits die Farbe für 
einen gesetzten, in den unteren vier Bits die Farbe für einen 
gelöschten Punkt. Für den Anwender bedeutet dies, daß in 
einem 8x8 Punkte-Kästchen nur zwei verschiedene Farben 
Vorkommen können. 


Befehlsbesprechung 


Anmerkung: Hinter dem Befehlsnamen steht die jeweilige 
Abkürzung, wobei »’« bedeutet, daß der folgende Buchstabe 
geSHIFTet eingegeben werden muß. 

CLEAR CL’E 

Löscht den Grafikbildschirm. Die Farbe bleibt unverändert. 
MODEn M’O 

Wenn n=1 ist, wird der Grafikmodus eingeschaltet; ist n=0, 
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wird auf den Textbildschirm geschaltet. Dabei wird der 
Groß/Grafik-Modus eingeschaltet. 

COLOR p,h CO’L 

Setzt die Farben im Video-RAM. Dabei steht p für die Punkt¬ 
farbe und h für die Hintergrundfarbe. Es können Werte von 0 
bis 15 für die Farben stehen. 

CHANGE CH’A 

CHANGE wechselt zwischen den beiden Grafikschirmen, 
indem die jeweiligen Punkte ausgetauscht werden. 

INVERS IN’V 

Invertiert die sichtbare Grafik. Das Video-RAM bleibt unver¬ 
ändert. 

COMBn CO’M 

COMB führt eine logische Verknüpfung zwischen den beiden 
Grafikseiten aus. Das Ergebnis wird in die sichtbare Grafik 
geschrieben. Die Verknüpfungsart ist mit n wählbar: 
n=1: logisch OR 

n=2: logisch AND 

n=3: logisch EXOR 

GSAVE a$,dv G’S 

GSAVE speichert die verdeckte Grafik mit dem Namen a$ an 
Gerät mit der Nummer dv ab. Die Parameter können entfallen. 
Beispiel: 

GASVE " BILD 1 ",8 Speichert die Grafik BILD 1 

auf Diskette 

GSAVE Speichert die Grafik ohne 

Namen auf Kassette ab. 

CSAVE a$,dv C’S 

Speichert das Video-RAM, die Farbe der Grafik, ab. 

Die Parameter sind analog zu GSAVE. 

GLOAD a$,dv G’L 

Mit GLOAD kann man die mit GSAVE abgespeicherte Grafik 
oder das mit CSAVE abgespeicherte Video-RAM laden. 

Da dieser Befehl keine Basic-Zeiger verändert, eignet er 
sicn auch zum Laden von Maschinenprogrammen, auch im 
Direktmodus. 

SPOINT x,y SP’O 

Setzt einen Punkt an die Stelle x/y in der Grafik. 

CPOINT x,y C’P 

Löscht den Punkt x/y. 

IPOINT x,y PS’C 

Invertiert den Punkt x/y 

PSCLINE x,y PS’C 

Setzt den Punkt x/y und löscht ab diesem Punkt eine Linie 
nach unten bis zum Grafikrand. Der Befehl ist besonders für 
3D-Grafiken geeignet. 

HMARK x,y H’M 

Setzt eine waagrechte »Markierung« an den Punkt x/y, das 
heißt, es wird eine 5 Punkte lange Linie gezeichnet, deren 
Mittelpunkt der Punkt x/y ist. 

VMARK x,y V’M 

Analog HMARK, jedoch wird eine senkrechte Markierung 
gezeichnet. 

HLINE y H’L 

Zeichnet eine durchgehende Horizontale an y. 

VLINE x V’L 

Zeichnet eine durchgehende Vertikale an x. 

Mit den letzten vier Befehlen ist es möglich, schnell und ein¬ 
fach Koordinatensysteme zu zeichnen. 

SLINE x0,y0,x1,y1 S’L 

Zeichnet eine Linie von xO/yO nach xl/yl. Die Richtung 
beziehungsweise Länge ist beliebig. 

CLINE x0,y0,x1,y1 CL’I 

Wie SLINE, die Linie wird jedoch gelöscht. 

ILINE x0,y0,x1,y1 l’L 

Wie SLINE, die Linie wird jedoch invertiert. 

SCIRCLE x,y,a,b S’C 

Zeichnet eine Ellipse mit dem Mittelpunkt x/y und den Radien 
a und b. 
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CCIRCLE x,y,a,b C’C 

Wie SCIRCLE, die Ellipse wird jedoch gelöscht. 

ICIRCLE x,y,a,b l’C 

Wie SCIRCLE, die Ellipse wird jedoch invertiert. 

SELLIPSE x,y,a,b,dw,sw,ew,s S’E 

Zeichnet einen Ellipsenbogen mit dem Mittelpunkt x/y und 
den Radien a und b. 


Die weiteren Parameter bedeuten: 

dw Drehwinkel der Hauptachse einer Ellipse um den 

Mittelpunkt. Die Ellipse wird mit dw im Uhrzeiger¬ 
sinn um den Mittelpunkt x/y gedreht, 
sw, ew sw und ew geben den Start- und Endwinkel des 
Ellipsenbogens an, 

s gibt den Schrittwinkel an, mit dem die einzelnen 

Bogenpunkte errechnet werden. 

Der Befehl errechnet einzelne Punkte des Ellipsenbogens, 
die mit einer Linie verbunden werden. Die Winkel müssen im 
Bogenmaß angegeben werden. Die Drehungen werden mit 
dem Uhrzeigersinn ausgeführt. 

CELLIPSE x,y,a,b,dw,sw,ew,s C’E 

Wie SELLIPSE, der Bogen wird jedoch gelöscht. 

IELLIPSE x,y,a,b,dw,sw.ew,s l’E 

Wie SELLIPSE, der Bogen wird jedoch invertiert. 

STEXT r,b,h,v,a,x,y,a$ STE’X 

Schreibt einen Text in den Grafikschirm. 

Die einzelnen Parameter bedeuten: 
r Schreibrichtung 

r = 1 von links nach rechts 

r = 2 von rechts nach links 

r = 3 von unten nach oben 

r = 4 von oben nach unten 

Die Schrift ist, der Richtung entsprechend, 

gekippt. 

b Breite eines einzelnen Zeichens; von 1 (normal^ 

bis 25 möglich. 

h Höhe eines Zeichens (von 1 bis 25). 

v Verschiebung (Kursivschrift) 

v gibt die Verschiebung eines Zeichens von sei¬ 
ner Spitze zum Fuß an. 

v kann Werte von 0 (normal) bis zum achtfachen 
(45 Grad Schräge) der Höhe h annehmen, 
a Abstand der Zeichen, a kann Werte von 0 bis 199 

annehmen. Für Normalschrift ist a=8. 
x und y Geben die Startkoordinaten an. 
x/y ist die linke obere Ecke des ersten Zeichens 

eines Strings. 

a$ String- oder numerischer Ausdruck, der ge¬ 

zeichnet werden soll. 


Im String kann zwischen den Zeichensätzen 
umgeschaltet werden: 


ctrl/9 

rvs on 

ctrl/0 

rvs off 

ctrl/a 

Groß/Klein 

ctrl/b 

Klein/Groß 


Ohne Umschaltung wird mit dem Groß/Grafik- 
Zeichensatz in Normalschrift gearbeitet. 
Hinweis: Wenn ein String außerhalb des Bildschirmes und 

mit großen Buchstaben gezeichnet wird, kann es 
Vorkommen, daß der Computer bis zu zwei Minu¬ 
ten lang keine Meldung ausgibt. Er ist nicht abge¬ 
stürzt, sondern fährt anschließend mit der Pro¬ 
grammausführung fort. 

CTEXT r,b,h,v,a,x,y,a$ C’T 

Wie STEXT, der Text wird jedoch gelöscht. 

ITEXT r,b,h,v,a,x,y,aS l’T 

Wie STEXT, jedoch wird der Text invertiert. 

FILL x,y F’l 

Malt ein durch Linien oder den Bildschirmrand begrenztes 
Feld beliebiger Form aus. 


x/y geben die Startkoordinaten an. 

DUPLICATE x0,y0,x1,y1,x,y D’U 

Kopiert einen Grafikausschnitt. 

Dabei geben xO/yO und xl/yl die Eckpunkte (links oben / 
rechts unten) eines Rechtecks an, das nun so kopiert wird, 
daß x/y die Koordinaten der linken oberen Ecke der Kopie 
angeben. 

Der Ausschnitt wird so kopiert, daß die Kopie exakt dem 
Original entspricht. Das Original kann also überschrieben 
werden. 

SCROLL r,x0,y0,x1,y1 SC’R 

Rolliert einen Grafikausschnitt um einen Punkt. 

Der Ausschnitt wird mit xO/yO und xl/yl analog zu DUPLI¬ 
CATE definiert. 

r bestimmt die Richtung des Rollierens: 
rl = nach rechts 
r2 = nach links 
r3 = nach oben 
r4 = nach unten 

WINDOW y0,y1 W’l 

WINDOW ermöglicht die gleichzeitige Anzeige von Text und 
Grafik. Die beiden Übergangszeilen dazu sind frei wählbar. 
Die Parameter geben die erste (yO) und letzte (yl) Zeile im 
Grafikmodus an. Der restliche Bildschirm wird im Textmodus 
ausgegeben. In den Grenzzeilen sollten keine Textzeichen 
stehen; der VIC kann diese unter Umständen nicht von der 
Grafik unterscheiden und unsinnige Zeichen anzeigen. 
WINDOW hat Vorrang vor MODE n. 

WINDOW y0,y1 wird durch WINDOW ohne Parameter abge¬ 
schaltet. Der Groß/Grafik-Textmodus wird eingeschaltet. 
LOWCOL x,y,p,h LO’W 

Mit LOWCOL kann man gezielt ein Byte des Video-RAMs 
ändern. 

x/y gebe" die Koordinaten des entsprechenden Grafikpunk¬ 
tes an, p uie Punkt- und h die Hintergrundfarbe. 

SPRITE n,x,y SP’R 

Mit Sprite kann man die Form eines Sprites anhand der Grafik 
definieren. 

n gibt die Nummer des Sprites an (0-7) und x/y die Koordina¬ 
ten der linken oberen Ecke eines Grafikausschnittes, nach 
dem die Spriteform gebildet wird (siehe auch DUPLICATE). 
Diese Form wird jedoch nicht einem Sprite zugeordnet; die 
Nummer n zeigt vielmehr die Blocknummer an, in den die 
Spriteform abgelegt wird. Dies sind die Blöcke 120(n = 0)bis 
127 (n=7). 

Die Blockzeiger liegen in den Adressen 50168 bis 50175 
und müssen mit POKE gesetzt werden. 

Hinweis: Die Spriteformen gelten nur im Grafikmodus. Im 
Textmodus gelten die gewohnten Regeln zum Arbeiten mit 
Sprites von Basic aus. 

Das bedeutet, daß man mit WINDOW »gemischte« Sprites 
erzeugen und zwischen den zwei Definitionssätzen umschal¬ 
ten kann. 

SSAVE n,n$,dv S’S 

Speichert einen Spriteblock mit dem Namen n$ auf dv ab. 
Zur Nummer n (0-7) siehe auch SPRITE. 

SLOAD n,n$,dv SL’O 

Lädt den Spriteblock n. Die Nummer, unter der der Block 

abgespeichert wurde, ist irrelevant. Siehe auch SPRITE und 

GLOAD. 

Grafik 2000 besitzt vier weitere Befehle, die die meisten übri¬ 
gen Befehle verändern und diese somit auf 140 verschie¬ 
dene Funktionen erweitern. 

PSCREEN n PSC’R 

n = 2 Alle Befehle, die die Grafik verändern, wirken 
nicht mehr auf die sichtbare, sondern auf die 
unsichtbare, zweite Grafik. 

(CLEAR, COMBI, HLINE,INVERSTEXT, LINE, 
CIRCLE,FILL, etc.) 
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n = 1 Die Befehle wirken wieder auf die sichtbare 
Grafik. 

TSCREEN n T’S 

n = 2 Die Befehle SPRITE. SCROLL und DUPLICATE 

sowie die Funktionen TEST und CTEST testen 
nicht in der sichtbaren, sondern in der unsicht¬ 
baren Grafik. 

Man kann also mit DUPLICATE Ausschnitte der 
einen in die andere Grafik übertragen, 
n = 1 schaltet zurück in die sichtbare Grafik. 
COLPLOT p,h COL’P 

COLPLOT ermöglicht das mehrfarbige Zeichnen in der 

HiRes-Grafik. 

Parameter: 

p Punktfarbe (0-15) 
h Hintergrundfarbe (0-15) 

COLPLOT p.h bewirkt, daß die Befehle 

SPOINT SLINE SCIRCLE SELLIPSE 

STEXT FILL SCROLL DUPLICATE 


Es lassen sich auf einfachste Weise effektvolle 3D-Bilder auf 
den Bildschirm zaubern. 

Dieser Befehl arbeitet unabhängig von COLPLOT. 

Es wird nur die Farbe des gezeichneten Punktes gesetzt; die 
Löschlinie verändert keinesfalls das Video-RAM. 
n = 1 Schaltet wieder die normale Punktsetzroutine 
ein. 

Hinweis: Die invertierten Befehle werden weder von COL¬ 

PLOT noch von PLOT beeinflußt. 


Testfunktionen 

var = TEST (x,y) T’E 

Weist der Variablen var den Wert 1 zu, wenn der Punkt x/y 
gesetzt ist, ansonsten den Wert 0. 

var = CTEST (x,y) CTE’S 

Weist der Variablen var die sichtbare Farbe des Punktes x/y 
zu (0 bis 15). 

Siehe auch TSCREEN. 


von nun an das Video-RAM mit der Punktfarbe p setzen. 
Jeder gesetzte Punkt erhält also die Farbe p; die Farbe der 
nicht gesetzten Punkte bleibt erhalten. 

COLPLOT bewirkt außerdem, daß die Befehle 
CPOINT CLINE CCIRCLE CELLIPSE 

CTEXT SCROLL DUPLICATE 

das Video-RAM mit der Hintergrundfarbe setzen. 

Jeder gelöschte Punkt erhält die Farbe h; die Farbe der 
gesetzten Punkte wird nicht verändert. 

Die Befehle SCROLL und DUPLICATE setzen sowohl 
Hintergrund- als auch Punktfarbe, je nachdem, ob ein Punkt 
gesetzt oder gelöscht wird. 

Die Option kann mit COLPLOT ohne Parameter abgeschal¬ 
tet werden. 

PLOT n 8*«R 

n = 2 
Die Befehle 

SPOINT SLINE SCIRCLE SELLIPSE 

STEXT SCROLL DUPLICATE 

arbeiten nicht mehr mit der normalen Punkt-Setzroutine, son¬ 
dern mit der PSCLINE-Routine. 

Es wird also unter jedem gezeichnetem Punkt eine Linie bis 
zum Bildschirmrand gelöscht. 


Sonstiges 

Grafik 2000 stellt dem Benutzer eine verbesserte SQR- 
Routine zur Verfügung. Sie wurde bereits in den Interpreter 
eingebunden. 

Wenn eine Basic-Fehlermeldung ausgegeben wird, schal¬ 
tet Grafik 2000 den Textmodus ein, und der Befehl WINDOW 
wird abgeschaltet. 

Grafik 2000 verfügt über eine eigenen NMI/BREAK- 
Routine. 

Diese schaltet den Textmodus ein, den Befehl WINDOW ab 
und setzt Rahmen/Hintergrund- und Schriftfarben. 

Diese Farbe kann man durch POKE selbst bestimmen: 
POKE 51071,Hintergrundfarbe 
P’L PCXE 51079,Schriftfarbe 

Die Farben werden bereits beim Drücken der RESTORE- 
Taste ohne die RUN/STOP-Taste gesetzt. 

Das Programm wird hierbei nicht unterbrochen. 

Während den Zeichenbefehlen (ausgenommen ELLIPSE) 
kann man den Computer durch nichts in seiner Arbeit stören. 

Auch RUN/STOP-RESTORE ist erst nach dem Ausführen 
eines solchen Befehls möglich. 

(Frank-Rüdiger Brendel/ah) 
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verschiebt sich dann in die vorgesehenen Speicherbereiche 
und startet. 

Mit dieser Routine können Sie Programme genauso bear¬ 
beiten wie mit dem normalen — 40spaltigen — Bildschirmedi¬ 
tor. Einige Kleinigkeiten, die im folgenden näher erläutert wer¬ 
den sollen, sind aber zu beachten. So ist es zum Beispiel nicht 
mehr möglich, mittels der Tastenkombination SH I FT und CBM 
zwischen Groß- und Kleinschrift umzuschalten. Man muß 
dazu auf die bekannten Steuercodes 14 und 142 auswei- 
chen. PRINT CHR$(14) schaltet Klein-/Großschreibung ein, 
PRINT CHR$(142) entsprechend den Groß-/Grafikmodus. 
Den Klein-/Großschriftmodus kann man aber auch über die 
Tastenkombination CTRL-N anwählen. CTRL-N entspricht 
dem ASCII-Code 14. Für die Zurückschaltung gibt es leider 
keine Tastenkombination. 

Auch das Anwählen der Hintergrundfarbe erfolgt etwas 
ungewohnt. Und zwar nicht über die bekannte Adresse 
53281, sondern mit POKE 683,Farbcode. Gibt man diesen 
Befehl ein, so geschieht zunächst einmal nichts. Erst durch 
die Eingabe eines zusätzlichen Steuercodes (wiederum 
wahlweise mittels PRINT-Anweisung oder über eine Control- 
Tastenkombination) wird der Hintergrund entweder ganz oder 
teilweise eingefärbt. Gibt man CTRL-G ein, so nimmt der Bild¬ 
schirmhintergrund die in Adresse 683 festgelegte Farbe an. 
Drückt man hingegen CTRL-P (für Paint), so wird nur die 
Fläche eingefärbt, die entweder vom Cursor überschrieben 
wird, oder durch Scrolling von unten ins Bildfeld tritt. Damit ist 
es möglich, auch verschiedene Hintergrundfarben darzu¬ 
stellen. 

Um auch mit Programmen, die einen 40-Zeichen- 
Bildschirm verwenden, arbeiten zu können, ist es möglich, 
wahlweise zwischen den beiden Formaten hin und her zu 
schalten. Dies ist zum einen mit den Tastenkombinationen 
CTRL-B (um auf die normale 40-Zeichen-Darstellung zu 


Die 80- 
Zeichenkarte 
zum Abtippen 

Verbreitern Sie den Bildschirm Ihres 
Monitors um das Doppelte: 80 Zei¬ 
chen pro Zeile. Egal ob Sie nun Pro¬ 
gramme eingeben oder laufen lassen. 

Scheuen Sie sich nicht, das etwas längere MSE-Programm 
abzutippen. Die Mühe wird mit einer professionellen Bild¬ 
schirmdarstellung belohnt: 80 Zeichen, nicht nur bei der Aus¬ 
gabe, sondern auch zur Eingabe. Natürlich entspricht die Bild¬ 
qualität dieses Programms nicht der einer »richtigen« 
80-Zeichenkarte auf Hardware-Basis, man kann aber den¬ 
noch gut damit arbeiten. 

Die Software-80-Zeichenkarte wurde so im Speicher des 
C 64 untergebracht, daß kein Basic-Speicherplatz verloren¬ 
geht. Das Programm benutzt im einzelnen folgende Speicher¬ 
bereiche: 

$A000-$A7FF : Zeichensatz 
$C000-$CFFF: Color-RAM 
$D800-$DFFF : Video-RAM 
S02A8-S02A9 : Kommunikationsadressen 

Haben Sie die 80-Zeichenkarte mit dem MSE abgetippt 
und gespeichert, können Sie das Programm mit LOAD 
" 80-ZEICHEN" ,8 laden und mit RUN starten. Das Programm 
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schalten) und mit CTRL-A (Umschaltung von 40 auf 80 Zei¬ 
chen je Zeile) möglich, wobei jedoch einfach nur zwischen 
den jeweiligen Bildschirmen hin und her geschaltet wird. 
Damit ist es dann aber nicht möglich, den 40spaltigen Bild¬ 
schirm zu bearbeiten. Man kann auch mittels »SYS 685« die 
80-Zeichenkarte zeitweise abschalten, um mit dem normalen 
Editor zu arbeiten (der Inhalt des Bildschirmspeichers bleibt 
übrigens, während die 80-Zeichenkarte aktiv ist, erhalten). 
Die analoge Rückschaltung erfolgt mittels »SYS 680«. 

Um die 80-Zeichendarstellung zu inaktivieren und um alle 
verbogenen Zeiger wieder zu restaurieren, gibt man »SYS 
49155« ein. Diesen Befehl sollte man immer einem STOP- 
RESTORE vorziehen, denn sonst stürzt der Computer ab. 
Der Neustart erfolgt dann mit »SYS 49152«. 

Der Geräteadresse 6 (die zweite Zahl beim OPEN-Befehl) 
wurden Steueraufgaben zugewiesen. Dies ist dann nötig, 
wenn man im 40-Zeichenmodus Kommandos an das aktive 
Programm (nach der Umschaltung mit »SYS 685« bleibt das 
Programm aktiv) sendet. Dies ist vor allem dann recht prak¬ 
tisch, wenn man mit zwei Bildschirmen arbeitet. In dem 
folgenden Beispiel wird vom normalen Editor aus, auf die 
80-Zeichen-Darsteliung umgeschaltet, dessen Bildschirm 
gelöscht und wieder auf die 40 Zeichen geschaltet: 

OPEN 6,6 : PRINT#6, CHR$(1);CHR$(147);CHR(2) : 
CLOSE 6 


Abschließend möchte ich noch zwei Steuerzeichen anfüh¬ 
ren, die übrigens alle wahlweise mit dem CHR$-Befehl oder 
über die Control-Taste eingegeben werden können. Dies sind 
CHR$(8) und CHR$(9) — beziehungsweise CTRL-I und 
CTRL-H —, mit denen der Cursor ein- und ausgeschaltet wer¬ 
den kann. Dies ist besonders bei Eingaben mit GET sehr 
nützlich, da hier ja normalerweise kein Cursor zu sehen ist. 
Setzt man vor solch einer Eingabeschleife ein »PRINT 
CHR$(9)« (Cursor on), so erscheint der Zeiger auch während 
der Eingabe. Danach sollte man ihn mit CTRL-H (oder »PRINT 
CHR$(8)«) wieder abschalten, da er sonst die Geschwindig¬ 
keit beim Listen verlangsamt. 

(Matthias Eichholz/Christoph Sauer/hm) 
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Listing der 80-Zeichen-Software- 
karte (Schluß). Beachten Sie 
bitte bei der Eingabe den MSE. 


Charakter- 
Designer 
für den C 64 

Mit diesem Programm passen Sie 
komfortabel alle darstellbaren Bild¬ 
schirmzeichen Ihren eigenen Vor¬ 
stellungen an. 

Der Charakter-Designer besteht aus drei Programmteilen. 
Einem Basic-Lader zum Laden des Hauptprogramms, dem 
Hauptprogramm selbst, das unbedingt unter dem Namen 
CHARAKTER-MAIN abgespeichert werden muß und einem 
Zeichensatz-Lader. Mit ihm können selbstdefinierte Zeichen¬ 
sätze außerhalb des Charakter-Designers geladen werden. 
Dazu muß der Name des Zeichensatzes eingegeben werden. 
Ist der Ladevorgang beendet, wird gefragt, ob die Zeichen im 
Multicolor-Modus ausgegeben werden sollen oder nicht. 
Wird der Multicolor-Modus gewählt, können nur die Farben, 
die über die Commodore-Taste erreichbar sind (8 bis 15) 
genutzt werden. Dadurch lassen sich Multicolor- und normale 
Zeichen gleichzeitig darstellen. 

Der Charakter-Designer ist so aufgebaut, daß während des 
Programmablaufs eine Bildschirmmaske bestehen bleibt. 
Der Bildschirm besteht aus folgenden Feldern: 

— dem Sketch-Pad: 

Zeichenfeld, in dem vier Zeichen auf einmal gezeichnet 
werden können; 

— dem Farbfeld: 

Anzeige der ausgewählten Farben und der aktuellen 
Farbe, mit der gezeichnet wird; 

— einer Anzeige der vier in Arbeit stehenden Zeichen in 
Originalgröße; 

— einer Anzeige der vier in Arbeit stehenden Zeichen in 
doppelter Größe; 

— dem Charakterwahlfeld: 

Anzeige des gesamten Zeichensatzes; 

— der Statuszeile: 

Ein- und Ausgabezeile für Disketteninhalt, Eingabe der 
Namen für LOAD und SAVE und zur Ausgabe von Fehler¬ 
meldungen; 

84 


— einer Anzeige der am häufigsten gebrauchten Funktionen. 
Die Steuerung des Cursorpfeils erfolgt mit dem Joystick 
(Port 2) oder mit den Cursortasten (Punkt setzen mit 
Space). 

Funktionen: 

Zur Beschreibung der Funktionen einige Erklärungen im 
voraus: 

Der »aktuelle Charakter« ist das Zeichen, über dem sich der 
Cursorpfeil auf dem Sketch-Pad gerade befindet. 

Im »Normalmodus« besteht ein Zeichen aus 64 Grafikpunk¬ 
ten (8x8) und kann eine von 16 Farben annehmen. 

•ii' •Multicolormodus« wird die halbe Auflösung des Charak¬ 
ters genommen (8x4 Punkte). In diesem Modus können vier 
Farben auf einmal in einem Zeichen verwendet werden, wobei 
die vierte Farbe der des Hintergrunds entspricht. Leider kann 
bei der Farbe »1« nur unter acht Farben ausgewählt werden. 
M (Multi-/Normalcolorumschaltung) 

Durch diese Funktion kann zwischen Normal- und Multi¬ 
colormodus gewählt werden. 

D (Drehen) 

Durch diese Funktion ist es möglich, ein Zeichen um 90 
Grad nach links zu drehen (nur im Normalmodus). 
SHIFT-D (Drehen) 

Wie bei D, jedoch wird das ganze Sketch-Pad gedreht. 

F (Spiegeln) 

Der aktuelle Charakter erscheint spiegelverkehrt auf 
dem Bildschirm. 

SHIFT-F (Spiegeln) 

Wie bei F, jedoch wird das ganze Sketch-Pad an der 
Y-Achse gespiegelt. 

K (Kopfstellen) 

Der aktuelle Charakter wird an der X-Achse gespiegelt. 
SHIFT-K (Kopfstellen) 

Wie bei F, jedoch wird das ganze Sketch-Pad an der 
X-Achse gespiegelt. 

G (Groß/Klein) 

Mit dieser taste kann zwischen Groß- und Kleinschrift 
selektiert werden. Wenn der abgespeicherte Charakter¬ 
satz später, außerhalb des Programms, geladen wird, ist 
der Zeichensatz aktiv, der zuletzt im Designer bearbeitet 
wurde und kann mit SHIFT-Commodore umgeschaltet 
werden. 

I (Invers) 

Diese Funktion bewirkt, daß der aktuelle Charakter inver¬ 
tiert wird. Im Multicolormodus werden die Farben auch 
entsprechend geändert. 
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SHIFT-I 

Wie bei I, jedoch wird das ganze Sketch-Pad invers 
gesetzt. 

Commodore-Taste (Charakter auswählen) 

Durch Drücken der Commodore-Taste kann ein neues 
Zeichen in das aktuelle Feld genommen werden. Der 
Pfeil springt in die obere linke Ecke des Charakter- 
Auswahlfeldes. Nun kann man mit dem Pfeil einen 
Charakter auswählen, der mit Return übernommen wird. 
C (Copy) — Kopieren eines Zeichens 

Im Copy-Modus springt der Pfeil in die linke Ecke des 
Charakterauswahlfeldes. Nun kann das Zeichen ausge¬ 
wählt werden, das man kopieren will. Nach dem Drücken 
der RETURN-Taste kann man entscheiden, wo das Zei¬ 
chen hinkopiert werden soll. 

L (Laden eines Zeichensatzes) 

Es erscheint »Name:« in der Statuszeile. Nun kann man 
den Filenamen über die Tastatur eingeben. Nach 
Drücken der RETURN-Taste (Eingabe beendet) schaltet 
der Bildschirm ab und der Zeichensatz wird geladen. 
Falls ein Diskettenfehler auftritt. erscheint die Meldung 
»Diskerror« in der Statuszeile. Durch Drücken der 
SPACE-Taste kann im Programm fortgefahren werden 
(die ganze Fehlermeldung des Floppy-Laufwerks kann 
nicht ausgegeben werden, weil die Statuszeile dafür zu 
klein ist). 

S (Save) 

Wie bei L, jedoch wird der Zeichensatz abgelegt. 

* (Directory lesen) 

Mit dieser Funktion kann das Inhaltsverzeichnis an¬ 
gezeigt werden. Die einzelnen Namen werden in der 
Statuszeile angezeigt, wobei der erste Ausdruck der 
Diskettenname ist. Durch Drücken von SPACE (Leer¬ 
taste) wird der nächste Filename angezeigt. 

@ (Initialisieren) e*€F 

Der Original-C 64-Zeichensatz wird aus dem ROM in das 
RAM übertragen. So können auch kleine Änderungen 
ohne große Komplikationen durchgeführt werden. 

Z (Zurück) 

Mit dieser Funktion kann der zuletzt geladene Zeichen¬ 
satz zurückgeholt werden. 

T (Testen) 

Das Auswahlfeld wird gelöscht und der Pfeil verschwin¬ 
det. Nun kann man mit dem Zeichensatz schreiben, um 
zu testen, wie er wirkt. Es können alle Tasten benutzt 
werden. Nach Drücken der RETURN-Taste erscheint der 
Zeichensatz wieder und man kann im Programm fort¬ 
fahren. 

Q (Quit) 

Diese Taste muß (aus Sicherheitsgründen) dreimal 
gedrückt werden, um das Programm zu beenden. Nach 
erstmaligem Drücken der Taste erscheint der Ausdruck 
»ACHTUNG RESET« in der Statuszeile. Wenn man eine 
andere Taste drückt, verschwindet der Ausdruck wieder 
und man kann weiterzeichnen. 

CLR/HOME (Löschen eines Zeichens) 

Die CLR/HOME-Taste hat drei Funktionen: 

1. Alleiniges Drücken der Taste bewirkt, daß der Pfeil in 
die obere linke Ecke des Sketch-Pads springt. 

2. Zusammen mit der SHIFTTaste wird der aktuelle 
Charakter gelöscht. 

3. Zusammen mit der CTRL-Taste wird das gesamte 
Sketch-Pad gelöscht. 

Einfügen und Herausnehmen von Zeilen und Spalten: 

Diese Funktion ist eine Besonderheit des Charakter- 
Designers. Sie ermöglicht es, Punkte in einer Zeile 
beziehungsweise Spalte einzufügen und herauszuneh¬ 
men. Der Pfeil kann an einer beliebigen Stelle des 
Sketch-Pads positioniert werden. 


Mit folgenden Tasten wird gearbeitet. 

INS/DEL-Taste: für zeilenweises Herausnehmen. Durch zu¬ 
sätzliches Drücken der SHIFT-Taste wird eine Zeile ein¬ 
gefügt. Es werden bis zu 255 Zeilen gepuffert, die auto¬ 
matisch wieder ausgegeben werden. 

Pfund-Taste: wie bei INS/DEL, jedoch wird der jeweils darun¬ 
ter liegende Charakter mit bewegt. 

= -Taste: für das spaltenweise Herausnehmen von einzelnen 
Punkten. Mit SHIFT »=« wird ein Punkt eingefügt. Hier¬ 
bei wird nichts gepuffert, weil es in den meisten Fällen, 
nur hinderlich wäre. 

;-Taste: wie bei =, jedoch werden zwei nebeneinander 
liegende Charaktere bearbeitet. 

Farbgebung: 

Die Farben werden mit den Tasten 1 bis 4 ausgewählt und 
können durch zusätzliches Drücken der SHIFTTaste verän¬ 
dert werden. 

Im Normalmodus kann man durch Drücken der Taste 1 die 


0 GOTO 10 <178> 

1 ********************************* <163> 

2 * CHARAKTER-DESIGNER C=64 » <159> 

3 * *** LADER EUER MAIN *** * <167> 

4 * V ON MATTHIAS MEYER » <045> 

5 * * <028> 

6 * WINKELWEG 24 * <096> 

7 « 5505 WASSERLIESCH BEI TRIER » <25I> 

9 ********************************* <171> 

10 IF A= 1 THEN SYS 8*4096+9: REM START DE 

S CHARAKTER-DESIGNERS <105> 

20 A= ls LOAD "CHARAKTER-MAIN",8,1 <213> 
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Listing 1. Charakter-Design-Lader. Bei der Eingabe bitte 
den Checksummer anwenden. 

onuni#"*' 

0 GOTO 10 

<178> 

1 #*-***********************#******* 

<163> 

2 * 

CHARAKTER-DESIGNER C=64 * 

< 159> 

3 * 

*»* ZEICHENSATZ LADER *** * 

<20B> 

4 * 

V ON MATTHIAS MEYER * 

<045> 

5 * 

* 

<028> 

6 * 

WINKELWEG 24 * 

<096> 

7 * 

5505 WASSERLIESCH BEI TRIER * 

<251 > 

9 ********************************* 

<171> 

10 

IF A=0 THEN 100: REM SCHON GELADEN ? 

<228> 

20 

POKE 53248+24, 29: REM CHARAKTERSATZ E 



INSCHALTEN 

< 104> 

30 

PRINT"MULTICOLOR <J/N> ";:POKE 198,0: W 



AIT 198,1:GET MU*: POKE 198,0 

<050> 

40 

IF MU*“"J"THEN POKE VIC+22, 216: GOTO 6 



0: REM CHA. AUF MULTICOLOR SCHALTEN 

<221 > 

50 

IF MU*<>"N“THEN PRINT: GOTO 30: REM BE 



I FALSCHER TASTE ZURUECK 

<076> 

60 

PRINT MU*: END: REM ENDE 

< 127> 

70 

REM FUER MULTICOLOR GELTEN NUR DIE FAR 



BEN 8-16 !• 

<047 > 

80 

REM DIE ANDEREN FARBEN WERDEN IN REG 3 



4 UND 35 FESTGELEGT 

<000> 

90 

- LADEN DES ZEICHENSATZES - 

<084> 

100 

POKE 56, 3*16: POKE 55, 0: CLR: REM E 



NDE DES BASIK RAM AUF *3000 SETZEN 

<059> 

110 

VIC = 53248:REM VIC GRUNDADRESSE 

< 059 > 

120 

POKE VIC+32,9: POKE VIC+33,7: PRINT"CC 
LR,YELLOW>“:POKE VIC+33,9: REM FARBEN 



SETZEN 

<036> 

130 

INPUT"CHARAKTERSATZ NAME";NA*: REM NA 



ME DES CHARAKTERSATZES 

<211 > 

140 

NA*="{HQME>"+NA*: REM DAS ERKENNUNGSZ 



EICHEN FUER EIN CHA.SATZ VOR DEN NAMEN 

<080> 

150 

A = 1:LOAD NA* ,8,1: REM CHA.SATZ VON 



FLOPPY LADEN 

<049> 
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Listing 2. Zeichensatzlader. Bei der Eingabe bitte den 
Checksummer verwenden. 
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Farbe eins zum Zeichnen nehmen. Wenn man Punkte 
löschen will, muß man die Taste 4 drücken. 

Im Multicolormodus sind die Tasten 1 bis 3 mit den ver¬ 
schiedenen Farben belegt, wobei mit der Taste 4 Punkte 
gelöscht werden können. 

Programmablauf: 

Nach dem Starten (durch Reset oder Restore) werden die 
Initialisierungsroutinen aufgerufen. Danach werden die ein¬ 


zelnen Unterroutinen in den $COOO-Bereich verschoben 
und die Bildschirmmaske einschließlich Farbe übertragen. 
Nun werden die programminternen Initialisierungsroutinen 
aufgerufen (Rasterzeilen-Interrupt, Sprites für Charakteran¬ 
zeige und so weiter) und der aktuelle Zeichensatz wird 
aktiviert. Anschließend befindet sich das Programm in der 
Tastatur- und Joystick-Abfrage (Flauptschleife). 

(Matthias Meyer/ah) 
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Listing 3. Charakter-Designer Hauptprogramm (Schluß). 
Bei der Eingabe bitte den MSE verwenden. 
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Grafik 


3D- 

Su pergrafik 

Ein dreidimensionales Grafikpro¬ 
gramm, das sich auch vor professio¬ 
nellen 3D-Programmen nicht zu ver¬ 
stecken braucht. Bewiesen wurde 
das, indem dieses Programm im 
Rahmen des Wettbewerbs »Jugend 
forscht ’85« mit dem Sonderpreis 
Elektronik ausgezeichnet wurde. 

Mit diesem Programm ist es möglich, beliebige dreidimen¬ 
sionale Körper zu drehen und in verschiedenen Perspektiven 
darzustellen. Die Besonderheit dieses Programms ist jedoch, 
daß es eine Routine zur Lösung des Hinterschneidungspro¬ 
blems besitzt. Diese Routine ermöglicht es, Körper naturge¬ 
treu darzustellen, indem sie Kanten, die von dem Körper ver¬ 
deckt werden, löscht. Außer der Darstellung von Körpern 
besitzt das Programm natürlich auch Routinen zum Eingeben, 
Laden, Speichern und Ausdrucken von Körpern sowie eine 
eigene Grafikerweiterung in Maschinensprache. 

Insgesamt ist das Programm sehr übersichtlich und leicht 
zu bedienen. Nur die Routine zur Eingabe von Körpern erfor¬ 
dert eine kurze Einarbeitungszeit. Denn zuerst müssen die 
Eckpunkt-Koordinaten eingegeben werden, dann die Num¬ 
mern der Punkte, aus denen die Fläche besteht, und zwar in 
der Reihenfolge, in der sie verbunden werden sollen. 

Die Routine zur Berechnung des Bildes erlaubt keine Fehl¬ 
eingaben, so daß man durch Probieren die Auswirkungen der 
einzelnen Faktoren auf das Bild bestimmen kann. Außerdem 
braucht sich der Benutzer nicht um die Größe der Darstellung 
zu kümmern, da dies vom Computer erledigt wird. 

Die Speicherbelegung 

Bei 3D-Supergrafik handelt es sich eigentlich um drei Pro¬ 
gramme: Einem Lader (Listing 1), eine Grafikerweiterung in 


Maschinensprache (Listing 3) und das Hauptprogramm in 
Basic (Listing 2). Diese Grafikerweiterung belegt den Spei¬ 
cherplatz von SC400 bis SCAFF. Außerdem benutzt sie zwei 
Grafikbildschirme unter den beiden ROM-Bereichen 
($A000-$BFFF/$E000-$FFFF). Die dazugehörigen Farb- 
speicher liegen von $8C00 bis $8FFF und von $C000 bis 
$C3FF. Daraus folgt, daß das Hauptprogramm mit den Varia¬ 
blen im Bereich von $0800 bis $8BFF liegt. Soviel zur Spei¬ 
cherbelegung. 

Das Programm 

Nach Laden und Starten des Laders gelangt man nach drei¬ 
ßig Sekunden ins Hauptmenü, das fünf Menüpunkte zur Ver¬ 
fügung stellt. Auf die Bedienung der einzelnen Punkte werde 
ich im folgenden eingehen. 

1. Daten eingeben 

Bevor man einen dreidimensionalen Körper in den Com¬ 
puter eingeben kann, muß man ihn erst in mathematische 
Daten zerlegen. Das hört sich schwerer an als es eigentlich 
ist. Man zeichnet sich einfach eine Vorderansicht und eine 
Draufsicht des Körpers in Koordinatensysteme. Daraus kann 
man dann die Eckpunktkoordinaten und die Verbindungsvor¬ 
schrift ablesen (siehe Bild 1). Nachdem Sie diese Arbeit er¬ 
ledigt haben, können Sie mit der Eingabe der Daten in den 
Computer beginnen. 

Zuerst muß man die Anzahl der Eckpunkte (im Bild 1: 8 
Punkte) und die Anzahl der Flächen (im Bild 1:6 Flächen) des 
gewünschten Körpers eingeben. Danach sind die räumlichen 
Koordinaten der Eckpunkte an der Reihe. Nachdem man die 
Koordinaten des Punktes eingegeben hat, wird man vom 
Computer gefragt, ob die Eingabe richtig ist. Falls dies so ist, 
tippt man einfach weiter, falls nicht, drückt man die Taste »N«. 
Dann kann man die Werte noch einmal eingeben. 

Nachdem man alle Eckpunkte definiert hat, muß man einge¬ 
ben. in w • icher Reihenfolge die Punkte zu jeder Fläche ver¬ 
bunden werden sollen. Ist man mit einer Fläche fertig, gibt 
man nur RETURN ein. Jetzt folgt wieder die Richtigkeits¬ 
abfrage des Computers, die analog zur vorherigen Frage 
beantwortet werden muß. Leider gibt es bei der Fiächen- 
eingabe noch eine Einschränkung. Eine Fläche darf nämlich 
nur aus vier Eckpunkten bestehen. Daraus folgt, daß große 
Flächen zerlegt, und auf mehrere kleine Flächen verteilt 
werden müssen (siehe Bild 2). Durch diese Maßnahme ent¬ 
stehen Linien, die die große Fläche teilen. Um so etwas zu 
vermeiden, kann der Anwender Linien eingeben, die später 
im Bild nicht gezeichnet werden. Das geht folgendermaßen: 


Vorderansicht’ 



Draufsicht 


Punkt 6+7 


Punkt 5+8 


—1. 



I 

—2 

1 • 


2 X 

Punkt 2+3 

z 

Punkt 1+4 


Punkt 

1 

2 

3 

4 

5 

6 

7 

8 

X-Koordinate 

1 

-1 

-1 

1 

1 

—1 

-1 

1 

Y-Koordinate 

—i 

—1 

1 

0.5 

—1 

— 1 

1 

0.5 

Z-Koordinate 

2 

2 

2 

2 

—2 

-2 

—2 

-2 


Flache: 1 1,2.3.4 3 1,5,84 5 3,7,8,4 


2 5,6,7,8 4 2,6,73 6 1,2,6.5 



Bild 2. Beispiel für die Teilung einer 
»großen« Fläche 


^ Bild 1. Beispiel für die Erstellung 
eines Körpers 
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Man schreibt hinter den Punkt, zu dem die nachher nicht 
sichtbare Linie führen soll, ein »I«. 

So, das war das Schlimmste. Alles weitere ist einfach. 

2. Daten laden 

Dieser Menüpunkt dient dazu, die Daten eines Körpers von 
Diskette zu laden. Er bietet noch zwei Sonderfunktionen: 
»$« druckt das Directory der Datenfiles auf der Disk 
»@« Rückkehr zum Hauptmenü 
Bei der Angabe, welches Bild zu laden ist, darf das »3D-« 
nicht mit eingegeben werden. 

3. Daten speichern 

Diesen Menüpunkt sollte man sofort nach der Eingabe 
eines Körpers aufrufen, um die Daten zu sichern. Er spei¬ 
chert die Daten in einem platzsparendem Format auf Disk. Die 
Sonderfunktionen sind analog zu Punkt 2. Dem Dateinamen 
wird automatisch ein »3D-« vorangestellt. 

4. Bild berechnen 

Es handelt sich hierbei um den umfangreichsten Punkt des 
Programmes, der aber nicht schwer zu verstehen ist. Die 
Auswirkung der einzelnen Parameter auf das Bild läßt sich am 
besten durch folgende Methode herausfinden: Probieren, 
probieren, probieren ... 

Für Interessierte möchte ich hier noch erwähnen, wie ich 
das Hinterschneidungsproblem in meinem Programm gelöst 
habe: 

Der Computer zeichnet die hinterste Fläche zuerst und füllt 
sie im unsichtbaren Grafikschirm aus (zu sehen, wenn Sie 
»F2« drücken). Jeden Punkt, den er dort setzt, löscht er in der 
sichtbaren Grafik. Auf diese Weise verfährt er auch mit den 
anderen Flächen, die vorderste Fläche zeichnet er zuletzt. 
Diese Verfahrensweise läßt sich sehr gut beim Bildaufbau 
beobachten. Es sieht aus, als ob der Computer den Körper 
aus einzelnen Teilen zusammensetzt. Es lohnt sich auch, mit 
den Funktionstasten Fl und F2 beim Bildaufbau zwischen 
den beiden Grafikseiten hin- und herzuschalten. 

Wenn das Bild fertig gezeichnet ist, kommt man mit der 
Leertaste wieder in den Textbildschirm. Dort wird man ge¬ 
fragt, ob noch etwas an der Grafik zu ändern ist. Wenn diese 
Frage bejaht wird, gelangt man in einen kleinen Grafikeditor. 
Man bewegt das Kreuz mit dem Joystick (Port 2) über den 
Bildschirm. Bei gedrücktem Feuerknopf werden Punkte 
gesetzt oder gelöscht. Mit den Tasten »%« und »L« kann man 
zwischen Punkt setzen und Punkt löschen hin- und her¬ 
schalten. Verlassen kann man den Editor mit »Ec. 

5. Hardcopy 

Dieser Menüpunkt sendet eine Hardcopy für einen Epson 
FX/RX-80 auf den seriellen Bus. Falls Sie über einen solchen 
Drucker verfügen, brauchen Sie nur noch die Sekundär¬ 
adressen an Ihr Interface anpassen. In Zeile 395 setzen Sie 
die Sekundäradresse für Groß-/Klein-Schrift ein, in Zeile 407 
die Sekundäradresse für den Epson-Direkt-Modus (ohne 
Auto-Linefeed !). 

Sonstige Hinweise 

— Falls Sie das Programm mit RUN/STOP unterbrochen 
haben und die Variablen noch vorhanden sind, können sie es 
mit »GOTO 115« wieder starten. 

— Die Funktionstasten sind folgendermaßen belegt: 

Fl: Grafik 1 

F3: Grafik 2 
F5: Textbildschirm 
F7: Textbildschirm 

— Drücken Sie die Funktionstasten nie während Operatio¬ 
nen auf dem seriellen Bus (Laden/Speichern/Hardcopy). 

— Der Bereich von $9000 bis $9FFF ist aus Hardwaregrün¬ 
den unbenutzt (»Geisterbilder« des Zeichen-ROMs). Dort 
können eigene Hardcopyroutinen untergebracht werden. 


— Man kann sich unter dem Menüpunkt »Bild berechnen« 
auch die Werte ausgeben lassen, um dann ein Bild von Hand 
zu zeichnen. 

In Bild 3 bis Bild 6 sehen Sie noch einige Beispiele. 

Zum Schluß möchte ich Ihnen noch viel Spaß bei der Arbeit 
mit meinem Programm wünschen. 

(Oliver Günter/gk) 


$0000 

Zeropage 

$0400 

Textbildschirm 

$0800 

Programm und Variablen 

$8000 

Farbspeicher 2 

$9000 

frei 

$A000 

Basic-ROM und Grafik 2 

$C000 

Farbspeicher 1 

$C400 

Grafikerweiterung 

$D000 

I/O-Bereich 

$E000 

Kernal-ROM und Grafik 1 


Tabelle 1: Speicherbelegung 


SYS 50176 

Grafik 1 ein 

SYS 50179 

Grafik 2 ein 

SYS 50182 

Textbildschirm ein 

SYS 50185 

Grafik 1 löschen 

SYS 50188 

Grafik 2 löschen 

SYS 50191,F1.F2 

Farbe setzen für Grafik 1 + 2 

SYS 50194.X.Y 

Punkt setzen 

SYS 50197,X,Y 

Punkt löschen 

SYS 50200,XI ,Y1 ,X2,Y2 

Linie ziehen 

SYS 50203,X1,Y1,X2,Y2 

Linie löschen 

SYS 50206,X,Y 

Hinterschneidungsroutine 

. OYS 50209 

Directory 

SYS 50212 

Funktionstasten initialisieren 

SYS 50215,LF 

Hardcopy 


Tabelle 2: Befehle der Grafikerweiterung 


Arrays: 

DX.DY.DZ 

Eckpunktkoordinaten eines Körpers 

WX,WY,WZ 

Eckpunktkoordinaten nach dem Drehen 

BX.BY 

Bildschirmkoordinaten der Eckpunkte 

MX.MY.MZ 

Koordinaten der Flächenmittelpunkte 

FL 

Eckpunkte einer Fläche 

PF 

Punktanzahl einer Fläche 

RF 

Reihenfolge der Flächen 

Strings: 

INS 

Gedrückte Taste 

FU$ 

Funktionsstring (Überschrift) 

FL$ 

Filename 

Einfache Variablen: 

V 

VIC-Basisadresse 

Q.W.E.R 

Laufvariablen 

AP 

Anzahl Punkte 

AF 

Anzahl Flächen 

FX.FY.FZ 

Koordinaten des Augpunktes 

ZX.ZY.ZZ 

Zwischenwertspeicher 

AE 

Vergrößerungsfaktor 

JO 

Joystickregister Port 2 

XD.YD.ZD 

Drehwinkel um X-, Y- und Z-Achse 

FE.T.S 

Nummer des Diskfehlers, Track, Sector 

XP,YP,WI,WK 

Hilfsvariablen der Drehroutine 

M,N,B,C 

Hilfsvariablen der Fluchtpunktroutine 

PX,NX,PY,NY 

Hilfsvariablen bei der Größenberechnung 

AX,AY,BX,BY 

Hilfsvariablen bei der Größenberechnung 

LO 

Löschvariable 


Tabelle 3: Variablenliste 
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Name : 

vader 

X-Drehwinkel : 

45 

Y—Drehwinkel : 

45 

Z-Drehwinkel : 

20 

Hinterschneidung : 

j 

Fluchtpunkt : 

j 

Augpunkt : 

0 , 0 , 25 

. 

-V V 






Bild 3. Die Hardcopy eines Bildes mit verdeckten 
»unsichtbaren« Linien 



Bild 6. Bild 5 ohne Hinterschneidung. Er ist sozusagen 
durchsichtig. 




Bild 4. Die gleiche Figur wie in Bild 3, nur aus einem 
anderen Blickwinkel 


Bild 5. Der Magische Würfel mit Hinterschneidung 


Name 

X—Drehwinkel 
Y—Drehwinkel 
Z-Drehwinkel 
Hinterschneidüng 
Fluchtpunkt 


: rubik's cube 
: 45 
: 120 
: 210 


100 IF C=1 THEN GOTO 115 <017> 

101 POKE 532B0,15:POKE 53281,15:PRINT CHR* 

C147)CHRS(144)CHRS(91CHRS(14)CHRS <B); <140> 

102 PRINT"£UNKTION : HAUPTPROGRAMM LADEN" <003> 

103 PRINT" {BLUE}**********-»*«*-»*»********* 

*»*****»**»*»»"; < 210 > 

104 PRINT"*{10SPACE,BLACKJ3,0-SUPERGRAFIK{ 1 

4SPACE,BLUE}*"$ <171> 

105 PRINT"*<38SPACE>*“; <236> 

106 PRINT"* 110SPACE,BLACK>VON fiLIVER ÜUENT 

ER<10SPACE,BLUE>*"5 <137> 

,4at^«INT-********#**«HH.***********.***** 

_.*.*«**•• <245> 

108 POKE 55,255:POKE 56,139 <039> 

109 FOR Q—0 TO 62 <164> 

110 READ W <070> 

111 POKE 53184+0,W <173> 

112 NEXT <122> 

113 C=1 <038> 

114 LOAD"3D—1",8,1 <061> 

115 PRINT"<GREY 3,3DGWN>L0AD";CHR*(34);"3D 

-2";CHRS<34>; n ,B,l <120> 

116 PRINT"C4D0WNJRUN" <04B> 

117 PRINT"<BUP>"; <114> 

118 FOR Q=0 TO 2:POKE 631+Q,13:NEXT <184> 

119 POKE 198,3 <156> 

120 DATA 0,0,0,0,0,0,0,16,0,0,16,0 <217> 

121 DATA 0,16,0,0,16,0,0,16,0,0,16,0 <204> 

122 DATA 0,0,0,0,0,0,31,131,240,0,0,0 <126> 

123 DATA 0,0,0,0,16,0,0,16,0,0,16,0 <1I8> 

124 DATA 0,16,0,0,16,0,0,16,0,0,0,0 <182> 

125 DATA 0,0,0 <247’ 

© G4'er 


Listing 1. Das Ladeprogramm für 3D-Supergraflk 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 


3D—SUPERGRAFIK 
BY OLIVER GUENTER 
GRAEVINGHOLZSTR. 44 
4600 DORTMUND 16 
TEL: 0231/853317 


7 REM 

8 REM FUER C-64 MIT VC-1541 

9 REM 

100 REM «»»*»*•»***»*******«***»****»»» 

101 REM * INITIALISIERUNG » 

102 REM **»»»*»**»**»***»*»******«*«-*** 

103 SYS 50212:SYS 50182:SYS 50191,15,15 

104 V=53248:POKE 50168,63 

105 POKE V+21,0:POKE V+32,15:P0KE V+33,15 

106 DIM DX(150),DY(150),DZ(150) 

107 DIM MX(150),MY <150),MZ(150) 

108 DIM BX(150),BY(150) 

109 DIM WX(120),WY(120),WZ C120) 

110 DIM FL(120,8) 

111 DIM PF(120),RF(120) 


Listing 2. »3D-Supergrafik« 


<063> 
<106> 
<142> 
<217> 
<038> 
<107> 
<069> 
<232> 
<071 > 
<238> 
<074> 
<240 > 
< 110 > 

< 15B> 
<241 > 
<080> 
<041 > 
<078> 

< 152> 

< 153> 
<237> 
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112 

113 

114 

115 

116 

117 
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119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 
14B 

149 
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131 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 
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167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 

182 

183 

184 
183 
186 
187 


REM ******************************* <250> 

REM * HAUPTMENUE * <037> 

REM ******************************* <252> 

FUS="i3AUPTMENUE": GOSUB 124 <132> 

PRINT TAB(11);"{DOWNJ-l- SÄTEN EINGEBE 
N" 

PRINT TAB(ll) ; *' {DOWN 1 —2— SÄTEN LADEN” 

PRINT TAB<11>;”{DOWN>-3- SÄTEN SPEICHE 
RN" 

PRINT TAB(ll);"<D0WN>-4- 2ILD BERECHNE 
N" 

PRINT TAB(ll);"(DOWNJ-5- HARDCOPY" 

GET IN*:IN=VAL(IN*) 

ÜN IN GOTO 134,175,201,228,387 
GOTO 121 

REM ******************************* 

REM * TITEL + FUNKTION * 

REM ******************************* 

PRINT"{CLR,BLACKJQJNKTION : “;FU* 

PRINT“{BLUE>************************** 
**************" • 

PRINT"*{10SPACE,BLACK>32-SUPERGRAF IK{1 
4SPACE,BLUE>*”; 

PRINT"»{38SPACE>* " ; 

PRINT"*{10SPACE,BLACK > (£> flLIVER SJENT 
ER {10SPACE , BLUE}*” ; 

PRINT"******»***«*«************»*»»**» 
********{BLACK5” 

RETURN 

REM ******************************* 

REM * DATEN EINGEBEN * 

REM ******************************* 
FU*=”SATEN EINGEBEN":GOSUB 124 
INPUT"CDOWN1HIE VIELE PUNKTE{3SPACEJ"; 

AP 

IF AP=0 THEN GOTO 112 
INPUT"{DOWNJBIE VIELE ÜLAECHEN ";AF 
IF AF=0 THEN GOTO 112 
FOR 0=1 TO AP 

FU*="ÖJNKTE EINGEBEN":GOSUB 124 
PR I NT " {DOWN > PUNKT : " ; Q 
INPUT" {2D0WN>X—jyjQRDINATE ";DX <Q) 

INPUT" IDOWNJX-XOORDINATE " ; DY (Q) 

INPUT"(DOWN >Z-XDORDINATE ";DZ(Q) 

PRINT"{DOWNJRICHTIG 7" 

POKE 198,0:WAIT 198,1 

IF PEEK(631)=78 THEN PRINT"{10UP>":POK 
E 198,0:GOTO 143 
NEXT 

POKE 198,0 
FOR 0=1 TO AF 

FUS="fLAECHEN EINGEBEN":GOSUB 124 
PRINT"{DOWNJfLAECHE :“;Q;"{DOWN>" 

R=0 

FOR W=1 TO 8 

IF R=1 THEN NEXT:GOTO 168 
PRINT"PUNKT : " ; W; 

T*=" " 

INPUT TS 
T=VAL(TS) 

IF T<0 OR T>AP OR INT(T)OT THEN PRINT 
"{2UP >":GOTO 159 
IF RIGHTS(TS,1)="L“THEN T=-T 
FL(Q,W)=T 

IF T=0 THEN R=1:PF(Q)=W—1:NEXT 
NEXT:PF(Q>=8 
PRINT"{DOWNJRICHTIG 7" 

POKE 198,0:WAIT 198,1 

IF PEEK(631)=78 THEN PRINT"CH0ME,9D0WN 
>“:POKE 198,0:GOTO 154 
NEXT 

PRINT" <2D0WN,RVS0N>< S.PACE. XRVOFFJ" 

GET INS: IF INSO“ “THEN 173 
GOTO 112 

REM ******************************* 

REM * DATEN LADEN * 

REM ******************************* 

FUS="SÄTEN LADEN (S=SIR)“:GOSUB 124 
INPUT"{DOWN > £1LENAME ";FLS 
IF FLS="@"THEN GOTO 112 
IF FLS="S"THEN PRINT:SYS 50209:GOTO 17 


9 <053> 
OPEN 15,8,15:OPEN 1,8,2,"3D-"+FLS+",S, 

R" <079> 
GOSUB 423 <023> 
IF ER=1 THEN CLOSE 1:CL0SE 15:G0T0 179 <039> 
GET#1,AS:AP=ASC(AS) <224> 
FOR Q=1 TO AP <180> 
INPUT#!,AS:DX(Q)=VAL(AS) <030> 


188 INPUT#1,AS:DY(Q)=VAL(AS) 

189 I NPUT# 1 , AS : DZ (Q) =VAL ( AS ) 

190 NEXT 

191 GET#1,A$:AF=ASC(AS) 

192 FOR Q=1 TO AF 

193 GET#1,AS:PF(Q)=ASC(AS) 

194 FOR W=1 TO PF(Q) 

195 GET#1,AS:FL(Q,W)=ASC(AS)—128 

196 NEXT 

197 NEXT 

198 CLOSE 1 

199 CLOSE 15 

200 GOTO 112 

201 REM ******************************* 

202 REM * DATEN SPEICHERN * 

203 REM ******************************* 

204 FUS="SATEN SPEICHERN (S=2IR>“sGOSUB 12 
4 

205 GOSUB 413:IF ER=1 THEN GOTO 112 

206 INPUT"(DOWN>£ILENAME ";FLS 

207 IF FLS="@"THEN GOTO 112 

208 IF FLS="S"THEN PRINT:SYS 50209:GOTO 20 
6> 

209 OPEN 15,8,15:OPEN 1,8,2,"3D-“+FLS+",S, 
W" 

210 GOSUB 423 

211 IF ER=1 THEN CLOSE 1:CLOSE 15:GOTO 206 

212 PRINT#1,CHRS(AP); 

213 FOR Q=1 TO AP 

214 PRINT#1,DX(Q) 

215 PRINT#1,DY(Q) 

216 PRINT#1,DZ(Q) 

217 NEXT 

218 PRINTttl,CHRS(AF); 

219 FOR 0=1 TO AF 

220 PRINT#1,CHRS(PF(Q)); 

221 FOR W=1 TO PF(Q) 

222 PRINT#1,CHRS(FL(Q,W)+128); 

223 NEXT 

224 NEXT 

225 CLOSE 1 

226 CLOSE 15 

227 GOTO ,112 

REM ******************************* 

229 REM * BILD BERECHNEN * 

230 REM ******************************* 

231 FUS="SILD BERECHNEN":GOSUB 124 

232 GOSUB 413:IF ER=1 THEN GOTO 112 

233 INPUT"{DOWNJX-SREHWINKEL “;XD 

234 INPUT"{DOWNJX-SREHWINKEL YD 

235 INPUT"{DOWNJX-SREHWINKEL ";ZD 

236 INPUT"{DOWNJÜINTERSCHNEIDUNG (J/N) ";H 
IS 

237 IF HIS="J"THEN HI=1:G0T0 240 

238 IF HISO"N"THEN PRINT" {3UPJ" : GOTO 236 

239 HI=0 

240 INPUT"{DOWNJELUCHTPUNKT (J/N) ";FS 

241 IF FS="J"THEN FallGOTO 245 

242 IF FS< >“N"THEN PRINT"{3UPJ":GOTO 240 

243 F=0 

244 GOTO 247 

245 INPUT “ {DOWN >flUGPUNKT-jPOR. {3SPACE >0,0, 
25{BLEFT J";FX,FY,FZ 

246 IF FZ<=0 THEN PRINT"{3UPJ":GOTO 245 

247 INPUT"{DOWNJHERTE AUSGEBEN (J/N){3SPAC 
E JN{3LEFT >";WES 

248 IF WES="J"THEN WE=1:G0T0 251 

249 IF WES<>"N"THEN PRINT"{3UPJ":GOTO 247 

250 WE=0 

251 PRINT"{2D0WNJSREHE PUNKTE" 

252 FOR Q=1 TO AP 

253 WX(Q)=DX(D) 

254 WY(Q)=DY(Q) 

255 WZ(□)=DZ(Q) 

256 NEXT 

257 IF XD=0 THEN GOTO 262 

258 FOR Q=1 TO AP 

259 WI=XD:XP=WY(Q):YP=WZ(Q):GOSUB 434 

260 WY(Q)=XP:WZ(Q)=YP 

261 NEXT 

262 IF YD=0 THEN GOTO 267 

263 FOR Q=1 TO AP 

264 WI=YD:XP=WZ(D):YP=WX(Q):GOSUB 434 

265 WZ(Q)=XP:WX(Q)=YP 

266 NEXT 

267 IF YD=0 THEN GOTO 272 

Listing 2. Hauptprogramm »3D-Supergrafik«. 
Bitte mit dem Checksummer 64 eingeben. 


< 099 > 
< 049 > 

< 226 > 

< 034 > 

< 130 > 
< 232 > 
< 146 > 

< 115 > 
< 006 > 
< 047 > 
< 008 > 

< 1 80> 

< 235 > 

< 196 > 
< 005 > 

< 044 > 

<057 > 

< 191 > 
< 016 > 
< 152 > 
< 018 > 
< 063 > 

< 001 > 

<061 > 

<226 > 
< 158 > 
< 136 > 
< 244 > 
< 119 > 
< 248 > 
< 125 > 
MCRJOHL 
<223 > 

< 121 > 

< 126 > 

< 161 > 

<060 > 
< 137 > 
< 199 > 
< 245 > 
< 125 > 

<243 > 
< 030 > 
< 010 > 
< 009 > 
< 155 > 

<057 > 

< 120 > 
< 030 > 
< 097 > 

< 018 > 
< 111 > 
< 243 > 

< 141 > 

< 004 > 

< 181 > 
< 105 > 
< 111 > 

< 182 > 
< 057 > 
< 022 > 
< 059 > 
< 184 > 
< 16 B > 
< 076 > 


-.28 


<033> 
<036> 
< 200 > 
<190> 
<176> 
<090> 
<072> 
< 011 > 
<206> 
<207> 
<209> 
<037> 
<208> 
<083> 
<033> 
<0B5> 

< 165> 

< 109 > 

< 195> 
<103> 

<046> 

<111> 

<050> 

<041> 

<177> 
<207> 
<216> 
<025> 
<090> 
<227 > 

< 173> 
<203> 
<208> 
<099> 
<237> 
<233> 
<234> 
<236> 
<064> 
<235> 
< 110 > 
<073> 

< 112> 
<040> 
<136> 
<243> 
<028> 
<069> 

<218> 
<049> 
<229> 
<139> 
<082> 
<040> 

< 153> 

< 164> 
< 212 > 

< 127 > 

< 121 > 

<029> 
<184> 
<136> 
<178> 
<018> 
<246 > 
<027 > 
<038 > 
<049> 
< 012 > 
<194> 
<254> 
<111> 
<077> 
<017> 
<247> 
<003> 
< 100 > 
<058> 
< 022 > 
<216> 
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26B 

FOR ß=l TO AP 

<008 > 

355 

GET IN*:IF IN*< >" "THEN GOTO 355 

<040> 

267 

WI=ZD:XP=WX <Q>:YP=WY(Q):GOSUB 434 

<137> 

356 

SYS 50182 

<217> 

270 

WXCQ)=XP:WY(Q)=YP 

<063> 

357 

INPUT"CUP}21LD AENDERN CJ/N) ";AES 

<038> 

271 

NEXT 

<027> 

358 

IF AE*="N"THEN GOTO 376 

<087> 

272 

IF F=1 TUEN GOTO 278 

<240> 

359 

IF AE*<>"J"THEN GOTO 357 

<158> 

273 

FOR 0=1 TO AP 

<013> 

360 

X=160:Y=100:L0=3:SYS 50176:POKE V+21,1 

<218> 

274 

BXCQ) =WX(Q) 

<241 > 

361 

GET IN*:IF IN*="S“THEN LO=0 

<028> 

275 

BY CQ)=WY(Q) 

<252> 

362 

IF IN*="L"THEN LO=3 

<175> 

276 

NEXT 

<032> 

363 

IF IN*="E"THEN POKE V+1,0:GOTO 373 

<069> 

277 

GOTO 285 

<247> 

364 

JO=PEEK C249) 

< 001 > 

278 

PRINT"CUPISERECHNE £1LDPUNKTE" 

<071 > 

365 

IF CJO AND 1)=0 AND Y>0 THEN Y=Y-1 

<246> 

279 

FOR Q=1 TO AP 

<019> 

366 

IFCJO AND 2)=0 AND Y<199 THEN Y=Y+1 

<230> 

280 

X1=FX:Y1=FY:Z1=FZ 

< 146> 

367 

IF CJO AND 4)=0 AND X>0 THEN X=X-1 

< 101 > 

281 

X2=WX CQ):Y2=WY CQ):Z2=WZ CQ) 

<084 > 

368 

IFCJO AND 8 )=0 AND X<319 THEN X=X+1 

<067> 

282 

GOSUB 446 

<252> 

369 

IFCJO AND 161=0 THEN SYS 50194+LQ,X,Y 

< 001 > 

283 

BXCQ)=X1:BYCQ)=Y1 

<149> 

370 

POKE V,C CX+13)AND 255):P0KE V+l.Y+40 

<207> 

284 

NEXT 

<040> 

371 

POKE V+16,CCX+13)AND 256)/256 

<005> 

28b 

IF HI=0 THEN GOTO 298 

<234> 

372 

GOTO 361 

<190> 

286 

PRINT"IUP}BERECHNE fllTTELPUNKTE" 

< 157> 

373 

PRINT" CUP, RVSONX APJIEA > CRVOFF , 13SPAC 


287 

FOR Q=1 TO AF 

<017> 


E>" 

< 142> 

288 

ZX=0:ZY=0:ZZ=0 

< 010 > 

374 

SYS 50182 

<235> 

289 

FOR W=1 TO PF CQ) 

< 169> 

375 

GET IN*:IF IN*<>" "THEN GOTO 375 

<068> 

290 

ZX=ZX+BXCABS(FLCQ,W>)) 

<238> 

376 

IF WE=0 THEN GOTO 112 

<043> 

291 

ZY=ZY+BY CABS CFLCQ,W))) 

<057> 

377 

FOR Q=1 TO AP 

< 117> 

292 

ZZ=ZZ+WZ CABS CFLCQ.W))) 

<153> 

378 

FU*=" 8 ERTE AUSGEBEN":GOSUB 124 

<049> 

293 

NEXT 

<049> 

379 

PRINT" CDOWN>BJJNKT :";Q 

< 100 > 

294 

MX CQ)=ZX/PF CQ) 

< 001 > 

380 

PRINT" C2D0WN}Ä-.KflORDINATE : " ; BX C Q) 

< 107> 

295 

MYCQ)=ZY/PFCQ) 

< 012 > 

381 

PRINT"CDOWNJX-BDORDINATE :*;BYCQ) 

<229> 

296 

MZ CQ)=ZZ/PF CQ) 

<023> 

382 

IF F=0 THEN PRINT" CDOWNJX-JCßORDINATE : 


297 

NEXT 

<053> 


";WZ CQ) 

<241> 

298 

PRINT" CUP}^.RECHNE ACHSEINHEI TEN" 

<241> 

383 

PRINT” C2D0WN,RVSONX S.PAC.E.CSHIFT-SPACE 


299 

PX=0s NX=0:PY=0:NY=0 

<043> 


}>CRVOFF}“ 

<208> 

300 

FOR Q=1 TO AP 

<0405 

384 

GET IN*:IF IN*<>" "THEN GOTO 384 

<073> 

301 

ZX=BX CQ) 

< 154> 

385 

NEXT 

< 141 > 

302 

ZY=BY(Q) 

<227> 

386 

GOTO 112 

<140> 

303 

GOSUB 458 

<098> 

387 

REM *******#*##***# 11 ###******#»**** 

<015> 

304 

NEXT 

<060> 

388 

REM * HARDCOPY EPSON RX-80 * 

<0U> 

305 

AX=-CPX+NX>/2 

<071 > 

389 

REM ******************************* 

<017> 

306 

AY=—C PY+NY)/2 

<0B9> 

390 

FU*="ÖARDCOPY":GOSUB 124 

<049> 

307 

BX=CABSCPX)+ABSCNX>)/3.2 

< 011 > 

391 

INPUT"CDOWNJIST DER 2RUCKER WIRKLICH A 


308 

BY= CABS CPY)+ABS CNY)>/2 

< 102 > 


N "; D* 

<068 > 

309 

AE=BX 

<239> 

392 

IF D*="J"THEN GOTO 395 

< 136> 

310 

IF BX<BY THEN AE=BY 

<209> 

393 

IF D*< >"N"THEN PRINT"C3UPJ":GOTO 391 

<154> 

311 

AE=AE*100/98 

< 186> 

• 94 

GOTO 112 

<148> 

312 

FOR Q=1 TO AF 

<042> 

395 

OPEN 4 , 4 , 2:REM ++ GROSS/KLEIN ++ 

<192> 

313 

RFCQ)=Q 

<086> 

396 

PRINT44 

< 145> 

314 

NEXT 

<070> 

397 

PRINT#4,"SAMEC13SPACE>: “; FL* 

<091> 

315 

IF HI=0 THEN GOTO 325 

<214> 

398 

PRINT#4,"X-SREHWINKELC5SPACE}:“;X D 

< 159> 

316 

PRINT" {UPI^RECHNE BEIHENFOLGEC2SPACE3 


399 

PRINT#4,"X-SREHWINKEL C5SPACE}:";YD 

< 000 > 


" 

<240> 

400 

PRINT#4, "2.—3REHWINKELC5SPACEJ: ZD 

<097> 

317 

FÜR Q=1 TO AF—1 

<074> 

401 

PRINT#4,"ÜINTERSCHNEIDUNG : “;HI* 

<243> 

318 

FOR W=Q+1 TO AF 

<214> 

402 

PRINT#4,“£LUCHTPUNKT C 6 SPACE >: ";F* 

< 010 > 

319 

IF MZ(RFCQ))<=MZCRFCW)>THEN GOTO 323 

<047> 

403 

IF F=1 THEN PRINT #4 ,"BUGPUNKTC9SPACE}: 


320 

A=RF CQ) 

<164> 


";FX;",";FY;"," 5 FZ 

<028> 

321 

RF CQ) =RF CW) 

<215> 

404 

PRINTH4 

< 153> 

322 

RF CW)=A 

<015> 

405 

PRINT#4 

< 154> 

323 

NEXT 

<079> 

406 

CLOSE 4 

<1B7> 

324 

NEXT 

<080> 

407 

OPEN 4,4,1:REM ++ EPSON MODE ++ 

< 164> 

325 

PRINT"CUP }2EIOHNE SILDC10SPACE}” 

<009> 

40B 

SYS 50215,4 

< 12 B> 

326 

SYS 50185:SYS 50176 

< 142> 

409 

PRINT*4,CHR*C10> 

<124> 

327 

FOR G=1 TO AF 

<057 > 

410 

PRINTU4,CHR* C10) 

< 125> 

32B 

SYS 50188 

< 192> 

411 

CLOSE 4 

< 192> 

329 

NF=RF CQ) 

<115> 

412 

GOTO 112 

<166> 

330 

FOR W=1 TO PF CNF) 

<065> 

413 

REM re****»**#**#***»»«*»»***»»»«*»* 

<041 > 

331 

Z X=BX C ABS C FL(NF,W)>) 

<030> 

414 

REM * AUF DATEN TESTEN * 

<132> 

332 

ZY=BY CABS CFL CNF,W>)) 

<103> 

415 

REM re**********»*****»*»**»**»»»»»* 

<043> 

333 

GOSUB 466 

<079> 

416 

ER=0 

< 122> 

334 

E=W+1:IF E>PFCNF)THEN E=1 

<222> 

417 

IF AP>0 THEN RETURN 

< 131 > 

335 

X=ZX:Y=ZY 

<252> 

418 

PRINT" CDOWN,RVSON>JC£INE SÄTEN VORHÄNDE 


336 

ZX=BX CABS CFL CNF ,E) ) ) 

<017> 


N !CRVOFF}" 

<050> 

337 

ZY=BYCABS CFL CNF,E>)) 

<090> 

41V 

PRINT" C2D0WN,RVSONX APACJC >CRVOFF}“ 

<098> 

338 

GOSUB 466 

<084 > 

420 

GET IN*:IF IN*<>" "THEN GOTO 420 

<055> 

339 

R=SGNCFLCNF,E)) 

<059> 

421 

ER=1 

<159> 

340 

LO=0 

<050 > 

422 

RETURN 

<226> 

341 

IF R=1 THEN GOTO 344 

< 128> 

423 


<051 > 

342 

IF HI=0 THEN GOTO 347 

<009> 

424 

REM * FEHLERKANAL ABFRAGEN * 

<065> 

343 

LO=3 

<149> 

425 

REM ******************************* 

<053> 

344 

SYS 50200+LO,X,Y,ZX,ZY 

<097 > 

426 

ER=0 

<132> 

345 

IF L0=3 THEN SYS 50194,X,Y 

<083> 

427 

INPUT#15,FE,FE*,T,S 

<065> 

346 

IF L0=3 THEN SYS 50194,ZX,ZY 

<090> 

428 

IF FE=0 THEN RETURN 

<037> 

347 

NEXT 

< 103> 

429 

PRINT"CDOWN,RVSON}flISKFEHLER :CRVOFF,S 


348 

IF HI=0 THEN GOTO 353 

<243> 


PACE}";FE* 

<214> 

349 

ZX=MXCNF) 

<006> 

430 

PRINT"CDOWN,RVSON T2RACK C 6 SPACE}:CRVOFF 


350 

ZY=MY CNF) 

<079> 


}";T 

<002> 

351 

GOSUB 466 

<097> 

431 

PRINT"CDOWN,RVS0NI5EKT0R C5SPACE}:CRVOF 


352 

SYS 50206,ZX,ZY 

<103> 


F } ”; S 

<064> 

353 

NEXT 

< 109 > 




354 

PRINT" CUP,RVSONX S.PACA >CRVOFF,3SPACE 
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<123> 

(Fortsetzung) 



QA 


64cr-onllne.de 

m 







Grafik 




432 ER=1 <170> 

433 RETURN <237> 

434 REM ******************************* <062> 

435 REM * REC—>PQL + WI POL->REC * <072> 

436 REM ******************************* <064> 

437 LA=SQRCXPT2+YPt2) '<000> 

438 IF XP=0 THEN WK=£/2*SGN(YP):GOTO 442 <206> 

439 WK=ATN(YP/XP) <169> 

440 IF SGN(XP)=-1 THEN WK=WK+£*SGN(YP) <252> 

441 IF SGN CXP)=—1 AND SGN<YP)=0 THEN WK=£ <239> 

442 WK=WK+(WI*i/I80) <173> 

443 XP=COS(WK)*LA <028> 

444 YP=SIN CWK)*LA <065> 

445 RETURN <249> 

446 REM ******************************* <074> 

447 REM * SCHNITTPT. GERADE/EBENE * <194> 

448 REM ******************************* <076> 

449 IF X2=X1 THEN GOTO 453 <064> 

450 M=(Z2-Z1)/(X2-X1> <213> 

451 B=Z1-M*X1 <222> 

452 Xl=—B/M <003> 


453 IF Y2=Y1 THEN GOTO 457 

454 N=(Z2—ZI)/(Y2-Y1> 

455 C=Z1+N*Y1 

456 Yl——C/N 

457 RETURN 

458 REM ******************************* 

459 REM * AE BERECHNEN * 

460 REM ******************************* 

461 IF PX<ZX THEN PX=ZX 

462 IF NX>ZX THEN NX=ZX 

463 IF PY<ZY THEN PY=ZY 

464 IF NY>ZY THEN NY=ZY 

465 RETURN 

466 REM ******************************* 

467 REM * BILDKOOR. BERECHNEN * 

468 REM ******************************* 

469 ZX=160+<(ZX+AX)*100/AE) 

470 ZY=100— <(ZY+AYJ *100/AE) 

471 RETURN 

© 64'er Listing 2. »3D-Supergrafik« (Schluß) 


<005 > 
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< 169 > 
<0B8> 
< 041 > 
< 214 > 
< 223 > 
< 140 > 
< 013 > 
< 094 > 
< 071 > 
< 096 > 
< 084 > 
< 109 > 
< 019 > 




< 204 > 
< 254 > 

<041 > 
< 076 > 








Programm 

s 3d- 




c400 

caae 

c640 

C400 

- 

4c 

2a 

c4 

4c 

33 

c4 

4c 

3c 

if 

C64B 

C650 

c408 

: 

c4 

4c 

4c 

C4 

4c 

5b 

c4 

4c 

e9 

c658 

c4 10 

: 

6a 

c4 

4c 

9c 

c4 

4c 

b9 

c4 

a2 

c660 

c4 18 

: 

4c 

Bd 

c5 

4c 

94 

c5 

4c 

47 

5d 

C66B 

c420 

: 

c7 

4c 

4d 

c9 

4c 

bB 

c9 

4c 

»4 

C670 

c428 

: 

15 

ca 

a9 

3b 

a 2 

08 

a 0 

00 

61 

C67B 

C430 

: 

«c 

42 

c4 

a9 

3b 

a 2 

38 

a 0 

ef 

c 680 

C438 

i 

01 

4c 

42 

c4 

a9 

lb 

a 2 

17 

b5 

c6B8 

C440 

: 

a 0 

03 

8d 

11 

d0 

8e 

18 

d0 

6b 

c690 

c448 

: 

8c 

00 

dd 

60 

a0 

H0 

84 

1 a 

6a 

C690 

c450 

r 

a9 

D0 

85 

fb 

a9 

00 

a2 

20 

af 

c 6 a 0 

c458 

: 

4c 

8f 

c4 

a0 

00 

84 

f a 

a9 

14 

c6a8 

c460 

: 

a0 

B5 

fb 

■9 

00 

a 2 

20 

4c 

25 

C6b0 

C468 

: 

Bf 

C4 

a 0 

00 

M 

f a 

a9 

C0 

ca 

c6b8 

c470 

: 

B5 

fb 

20 

fd 

ae 

20 

9e 

b7 

90 

c 6 c 0 

c478 

s 

8a 

a 2 

04 

20 

Bf 

c4 

a0 

00 

fa 

c6cB 

c4D0 


84 

fa 

a9 

8c 

85 

tb 

20 

fd 

32 

c6d0 

t488 

: 

ae 

20 

9p 

b7 

8a 

a 2 

04 

a0 

f 4 

c6dB 

C490 

: 

00 

91 

f a 

cB 

d0 

f b 

e6 

fb 

bl 

c 6 e 0 

c4V0 


ca 

d0 

f 4 

60 

20 

d6 

c4 

20 

20 

c6e8 

C4a0 

: 

** 

c4 

a9 

00 

85 

fe 

a9 

e0 

24 

c6f 0 

c4a8 

: 

85 

ff 

20 

5d 

c5 

a9 

00 

85 

95 

c6f 8 

c4b0 

s 

ie 

a9 

a 0 

85 

ff 

20 

5d 

c5 

5e 

C700 

c4b8 

: 

60 

20 

d6 

c4 

20 

ff 

c4 

a9 

df 

C70B 

c4c0 

: 

00 

B5 

fe 

a9 

e 0 

B5 

ff 

20 

f 2 

C71B 

c4c8 

s 

62 

c5 

a9 

00 

85 

fe 

a9 

a 0 

af 

C71B 

c4d0 

: 

85 

ff 

20 

62 

c5 

60 

20 

f d 

85 

c 720 

c4d8 

: 

ae 

20 

eb 

b7 

86 

02 

aS 

14 

bf 

C72B 

c4e0 

: 

85 

fa 

a5 

15 

85 

fb 

c0 

c8 

3c 

c730 

c4e8 

: 

90 

06 

20 

3c 

c4 

4c 

48 

b2 

40 

C738 

c 4 f 0 

: 

a5 

fb 

c9 

01 

90 

08 

d0 

f 2 

98 

C740 

c4f 8 

: 

a5 

fa 

c9 

40 

b0 

ec 

60 

ab 

d4 

C748 

c500 

: 

02 

29 

f 8 

85 

f e 

85 

fc 

a9 

e9 

C750 

c508 

: 

00 

BS 

fd 

06 

fc 

26 

fd 

06 

10 

c758 

cbl 0 

3 

fc 

26 

fd 

18 

aS 

fc 

65 

fe 

78 

C760 

c518 

3 

85 

fc 

a5 

fd 

69 

00 

85 

fd 

ed 

c768 

cS 20 

: 

06 

fc 

26 

f d 

06 

fc 

26 

fd 

ca 

c7 70 

C528 

: 

06 

fc 

26 

fd 

aS 

02 

29 

07 

13 

C77B 

c530 

: 

18 

65 

fc 

BS 

fc 

a5 

fd 

69 

b2 

C7B0 

c538 

r 

00 

Bb 

♦ d 

18 

aS 

fa 

29 

f 8 

46 

C788 

c540 

: 

65 

fc 

85 

fc 

a5 

fb 

65 

fd 

f0 

c790 

c540 

: 

85 

fd 

18 

aS 

f a 

29 

07 

49 

2e 

c798 

c5S0 

: 

07 

aa 

a9 

01 

ca 

30 

03 

0a 

85 

c7a0 

c558 

: 

d0 

fa 

85 

02 

60 

38 

08 

4c 

c7 

c7aB 

cS 60 

: 

64 

c5 

1B 

08 

18 

a5 

fe 

65 

23 

c7b0 

c568 

3 

fc 

85 

fa 

aS 

ff 

65 

fd 

85 

ca 

c7b8 

c570 

3 

fb 

a5 

02 

a 0 

00 

a2 

34 

28 

09 

c7c0 

c578 

: 

78 

86 

01 

90 

04 

1 1 

fa 

b0 

9c 

c7c0 

C580 

: 

04 

49 

ff 

31 

fa 

91 

f a 

a2 

bc 

c7ri0 

c5B8 

: 

37 

86 

01 

58 

60 

a9 

ff 

85 

ac 

c7dB 

c590 

: 

97 

4c 

98 

c5 

a9 

00 

85 

97 

0C 

C7G0 

C598 


20 

d6 

c4 

a5 

02 

Bd 

ae 

ca 

e6 

c7eB 

c5a0 

: 

a5 

fa 

□d 

b7 

ca 

aS 

fb 

Bd 

01 

c7f 0 

c5a8 

: 

bß 

ca 

20 

d6 

c4 

a5 

02 

Bd 

45 

c7fB 

c5b0 

: 

a+ 

ca 

a5 

fa 

Bd 

b0 

ca 

ad 

72 

CB00 

c5b8 

: 

b7 

ca 

85 

14 

a5 

fb 

8d 

bl 

Bc 

CB08 

c5c0 

: 

ca 

ad 

b8 

ca 

85 

15 

30 

01 

6e 

cB10 

c5c8 

: 

Bc 

bc 

ca 

Bc 

b9 

ca 

Bc 

b7 

8a 

c 81 B 

c5d0 

: 

ca 

88 

Bc 

bO 

ca 

Bc 

bb 

ca 

ae 

cB20 

c5dB 

: 

Bc 

ba 

ca 

88 

ad 

bi 

ca 

c5 

a4 

cB2B 

CÜO0 

: 

15 

90 

09 

d0 

le 

ad 

b0 

ca 

41 

cB30 

c5e8 

3 

c5 

14 

b0 

17 

3B 

a5 

14 

ed 

a3 

C838 

c5f0 

: 

b0 

ca 

Bd 

b5 

ca 

a5 

15 

ed 

29 

c840 

c5f 8 

: 

bl 

ca 

Od 

b6 

ca 

8c 

bc 

ca 

«2 

C84B 

c600 


4c 

14 

c6 

38 

ad 

b0 

ca 

e5 

66 

c850 

C600 


14 

Bd 

b5 

ca 

ad 

bl 

ca 

e5 

09 

CBSB 

c610 


15 

8d 

b6 

ca 

ad 

af 

ca 

cd 

12 

cB60 

c618 


ae 

ca 

b0 

10 

38 

ad 

ae 

ca 

9b 

c868 

C620 


ed 

af 

ca 

HM 

b4 

ca 

Bc 

b9 

90 

cB70 

C62B 


ca 

4c 

32 

Cö 

ed 

ae 

ca 

8d 

18 

c878 

c630 

s 

b4 

ca 

ad 

b6 

ca 

d0 

24 

ad 

ab 

c880 

c638 

: 

b5 

ca 

cd 

b4 

ca 

h0 

lc 

ae 

5c 

C88B 




b4 

ca 

8d 

b4 

ca 

8e 

b5 

ca 

Bl 

c890 

18 

ad 

bd 

ca 

6d 

c3 

ca 

Bd 

B3 


ad 

bc 

ca 

Bd 

ba 

ca 

ad 

b9 

B4 

C898 

bd 

ca 

85 

f a 

ad 

be 

ca 

6d 

52 


ca 

Bd 

bb 

ca 

c8 

8c 

bc 

ca 

aZ 

c8a0 

c4 

ca 

Bd 

be 

ca 

85 

fb 

ad 

29 


Bc 

b9 

ca 

ad 

b6 

ca 

4a 

Bd 

2f 

c8a8 

cB 

ca 

d0 

03 

4c 

4e 

c8 

18 

f 4 


b3 

ca 

ad 

b5 

ca 

6a 

8d 

b2 

36 

C8b0 

ad 

bf 

ca 

6d 

c5 

ca 

85 

02 

6a 


ca 

4c 

ff 

c6 

ad 

bc 

ca 

30 

7d 

cBbB 

20 

80 

c9 

a5 

02 

f0 

03 

4c 

4c 


0 e 

18 

65 

14 

85 

14 

a5 

15 

20 

cBc0 

4e 

cB 

18 

ad 

bf 

ca 

6d 

c5 

c2 


69 

00 

85 

15 

4c 

Bc 

C 6 

38 

9a 

cBcS 

ca 

8d 

bf 

ca 

20 

08 

c8 

38 

78 


a5 

14 

e9 

01 

85 

14 

a5 

15 

84 

cBd0 

ad 

bf 

ca 

ed 

c5 

ca 

Bd 

bf 

35 

e9 

00 

85 

15 

18 

ad 

ae 

ca 

bS 

cBdB 

ca 

a9 

00 

Bd 

c8 

ca 

a9 

01 

b4 


6d 

bb 

ca 

Bd 

ae 

ca 

18 

ad 

3c 

cBe 0 

Bd 

c7 

ca 

4c 

4e 

c8 

20 

ff 

39 


b2 

ca 

6d 

b4 

ca 

8d 

b2 

ca 

lb 

c8e8 

C4 

a9 

00 

85 

fe 

a9 

e0 

B5 

fd 


ad 

b3 

ca 

69 

00 

Bd 

b3 

ca 

07 

c8f 0 

ff 

20 

62 

c5 

a9 

00 

85 

fe 

ff 


ee 

b7 

ca 

d0 

03 

ee 

b8 

ca 

5f 

C8f 8 

a9 

a 0 

85 

ff 

20 

5d 

c5 

60 

17 


ad 

03 

ca 

cd 

b6 

ca 

90 

47 

36 

c900 

20 

12 

c9 

20 

ff 

c4 

a9 

00 

6c 


d0 

08 

ad 

b5 

ca 

cd 

b2 

ca 

2 a 

c90B 

BS 

fe 

a9 

aB 

85 

ff 

20 

2d 

be 


b0 

3d 

38 

ad 

b2 

ca 

ed 

bS 

77 

C910 

c9 

60 

a6 

02 

e0 

cB 

90 

06 

96 


ca 

8d 

b2 

ca 

ad 

b3 

ca 

ed 

de 

C91B 

20 

3c 

c4 

4c 

48 

b2 

a5 

fb 

ba 


06 

ca 

8d 

b3 

ca 

ad 

ba 

ca 

60 

C920 

c9 

01 

90 

08 

d0 

f 2 

a5 

fa 

c0 


30 

0e 

10 

65 

14 

B5 

14 

a5 

cb 

C920 

c9 

40 

b0 

ec 

60 

18 

a5 

fe 

36 

15 

69 

00 

85 

15 

4c 

f 5 

c6 

74 

c930 

65 

♦c 

85 

f a 

a5 

ff 

65 

fd 

c 0 


38 

*5 14 b 9 01 es ■'• ■.3 

0d 

C93B 

BS 

fb 

aS 

02 

a 0 

00 

a 2 

34 

61 


15 

e9 

00 

85 

15 

18 

ad 

ae 

dl 

c940 

7B 

86 

01 

3! 

fa 

85 

02 

a2 

8b 


ca 

6d 

b9 

ca 

Bd 

ae 

ca 

ad 

15 

C94B 

37 

86 

01 

58 

60 

a9 

b0 

85 

2f 

ae 

ca 

B5 

02 

a5 

14 

85 

fa 

bc 

c950 

bb 

a9 

c9 

n r -~, 

bc 

a9 

08 

85 

47 


■5 

15 

85 

fb 

20 

23 

c7 

ad 

ae 

C95B 

b7 

85 

ba 

a9 

60 

85 

b9 

20 

0f 

b8 

ca 

cd 

b6 

ca 

90 

09 

ad 

2B 

C960 

d5 

f 3 

a5 

ba 

20 

04 

ff 

a5 

e 2 


b5 

ca 

cd 

b7 

ca 

b0 

01 

60 

94 

C96B 

b9 

20 

96 

ff 

a9 

00 

85 

90 

a9 


4c 

6c 

c6 

20 

ff 

c4 

a9 

00 

23 

c970 

a0 

03 

84 

fb 

20 

a5 

ff 

85 

6d 


B5 

fe 

a9 

a 0 

85 

ff 

•30 

5d 

3e 

C97B 

fc 

a4 

9« 

dB 

2f 

20 

a5 

ff 

Qf 


c:5 

«9 

BB 

85 

fe 

a9 

e 0 

85 

46 

C980 

a4 

90 

d0 

28 

a4 

fb 

88 

d0 

93 


ff 

a5 

V/ 

f0 

04 

20 

5d 

c5 

50 

c98B 

e9 

•6 

fc 

20 

cd 

bd 

a9 

20 

b9 

60 

20 

62 

c5 

60 

a5 

fa 

20 

61 

C990 

20 

d2 

ff 

20 

a5 

ff 

a6 

90 

33 


d6 

c4 

a5 

fa 

Bd 

bd 

ca 

a5 

86 

C998 

d0 

12 

aa 

f0 

06 

20 

d2 

ff 

e7 

fb 

8d 

b c> 

ca 

•a 

02 

8d 

bf 

3b 

c9a0 

4c 

93 

c9 

a9 

0d 

20 

d2 

ff 

7a 


ca 

a9 

00 

Bd 

c6 

ca 

Bd 

c7 

31 

c9a8 

a 0 

02 

d0 

c6 

20 

42 

f 6 

60 

07 


ca 

8d 

cB 

ca 

a 0 

01 

8c 

c3 

48 

C9b0 

24 

:.a 

33 

44 

2d 

2 a 

3d 

53 

06 


ca 

8d 

c4 

ca 

8c 

c5 

ca 

20 

«6 

c9bB 

7B 

a9 

c5 

8d 

14 

03 

a9 

c9 

bb 


08 

cB 

ad 

bd 

ca 

85 

fa 

ad 

11 

C9C0 

Bd 

15 

03 

58 

60 

a9 

00 

Bd 

12 


be 

ca 

85 

fb 

ad 

er 

•#* 

ca 

85 

8b 

C9c8 

02 

de 

Bd 

27 

d0 

ad 

00 

de 

b5 


02 

20 

00 

c9 

a5 

02 

f0 

01 

fc 

c9d0 

B5 

f 9 

a9 

ff 

8d 

02 

de 

a5 

64 


60 

ad 

bd 

ca 

85 

fa 

ad 

be 

ec 

c9dB 

cS 

c9 

03 

dB 

0b 

20 

3c 

c4 

89 


ca 

85 

fb 

18 

ad 

bf 

ca 

6d 

fe 

c9e0 

a9 

00 

8d 

15 

d0 

4c 

31 

ea 

99 


c5 

ca 

85 

02 

20 

00 

c9 

a5 

d8 

C9e8 

C9 

04 

dB 

üb 

20 

2 a 

C4 

a9 

03 


02 

f0 

05 

a9 

01 

8d 

c8 

ca 

c6 

c9f 0 

01 

8d 

15 

dB 

4c 

31 

ea 

c9 

a5 


ad 

c3 

ca 

49 

fe 

8d 

c3 

ca 

14 

c9f B 

05 

d0 

0b 

20 

33 

c4 

a9 

00 

2c 


ad 

c4 

ca 

49 

ff 

8d 

c4 

ca 

b0 

ca 00 

Bd 

15 

d0 

4c 

31 

ea 

c9 

06 

73 

20 

3c 

cQ 

ad 

c3 

ca 

49 

f • 

94 

ca 0 B 

d0 

BB 

70 

3c 

c4 

*9 

00 

0d 

21 


8d 

c3 

ca 

ad 

c4 

ca 

49 

ff 

5f 

cal 0 

15 

d0 

4c 

31 

ea 

20 

Id 

ae 

cc 


Bd 

c4 

ca 

20 

3c 

c8 

18 

ad 

34 

calB 

20 

9e 

b7 

20 

50 

f 2 

a9 

00 

bc 


bf 

ca 

bd 

c5 

ca 

Sd 

bf 

ca 

b6 

ca 20 

a 0 

e 0 

85 

Id 

84 

fe 

a 2 

19 

4b 

ad 

ad 

c8 

c5 

ca 

ca 

d0 

c9 

03 

01 

4c 

(0 

f 5 

01 

c7 

60 

b0 

bB 

ca 28 

ca30 

aB 0 d 

20 a2 

2 c 

ff 

a 0 

88 

05 

10 

bv 

f 7 

9B 

a9 

ca 

28 

84 

82 

-,V 

ff 

8d 

c5 

ca 

a9 

00 

8d 

c2 

ca38 

B5 

15 

a9 

80 

85 

97 

a9 

00 

7e 

cü 

ca 

20 

22 

cB 

ad 

c7 

ca 

1B 

ca40 

05 

14 

a0 

07 

a9 

34 

78 

85 

01 

dB 

03 

4 c 

89 

c7 

a9 

00 

8d 

73 

ca4B 

01 

bl 

fd 

85 

02 

a9 

37 

85 

a7 


c7 

ca 

20 

22 

c8 

4c 

89 

c7 

ld 

ca50 

01 

58 

a5 

02 

25 

97 

f0 

07 

08 


ae 

c6 

ca 

ad 

bd 

ca 

9d 

c9 

be 

caSB 

aS 

14 

19 

a6 

ca 

85 

14 

B8 

5d 


ca 

ad 

be 

ca 

9d 

d 3 

ca 

ad 

b9 

ca 60 

10 

e 2 

a5 

14 

20 

d2 

ff 

46 

f 2 


bf 

ca 

9d 

dd 

ca 

e8 

8e 

c6 

lb 

ca6B 

97 

90 

d3 

aS 

fd 

69 

07 

85 

43 

ca 

60 

ae 

c6 

ca 

ca 

bd 

c9 

2c 

ca70 

fd 

90 

02 

e6 

fe 

rh 

15 

d0 

2f 

ca 

8d 

bd 

ca 

bd 

d3 

ca 

Bd 

42 

ca7B 

Cl 

a9 

0d 

20 

d2 

ff 

a9 

0 a 

3d 


be 

ca 

bd 

dd 

ca 

Bd 

bf 

ca 

2 c 

caB0 

20 

d2 

ff 

ca 

dB 

a5 

H V 

lb 

7a 


8e 

c6 

ca 

60 

ad 

bd 

ca 

8d 

f 7 

ca88 

20 

d2 

r f 

a9 

32 

20 

d2 

ff 

b6 


c0 

ca 

ad 

be 

ca 

Bd 

cl 

ca 

Se 

ca90 

a9 

0d 

20 

d2 

ff 

4c 

cc 

ff 

bB 


ad 

bf 

ca 

8d 

c 2 

ca 

ad 

bd 

ee 

ca98 

01 

40 

04 

2 a 

lb 

09 

Bd 

14 

56 


ca 

85 

f a 

ad 

be 

ca 

85 

fb 

al 

caa0 

00 

65 

lb 

i 7 

33 

lb 

88 

40 

8b 


ad 

bf 

ca 

85 

02 

20 

e6 

c8 

96 

caaß s 

20 

10 

08 

04 

02 

01 

5e 

5e 

bl 



18 ad bd ca 6d c3 ca 05 
fa ad be ca 6d c4 ca 85 
fb ad bf ca 85 02 20 00 
c9 a5 02 f0 13 ad c0 ca 
8d bd ca ad cl ca 8d be 
ca ad c2 ca Bd bf ca 60 


43 
75 
74 
ea 
7a 
f 5 


Listing 3. Die Maschinenroutine 
zu »3D-Supergrafik«. 

Dieses Listing müssen Sie 
mit dem MSE eingeben. 
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Räumliche 
Grafik auf 
dem C 64 

Gerade auf dem Gebiet von Film- und 
Fernsehproduktionen werden Com¬ 
putergrafiken immer öfter eingesetzt, 
da es hiermit möglich ist, Dinge zu zei¬ 
gen, die mit herkömmlichen Metho¬ 
den nicht gefilmt werden konnten. 

Ob nun Raumschiffe gezeigt werden, die eigentlich unmög¬ 
liche Bewegungen durchführen oder der »Anflug« eines 
Logos (wie zum Beispiel die »1« bei der ARD), die Realisierung 
vereinfacht sich durch den Einsatz von Grafik-Computern 
enorm. Diese müssen jedoch bedingt durch die anfallen¬ 
den Datenmengen — enorm schnell sein, so daß zur Zeit nur 
»Supercomputer« Bchtzeitslmulation erlauben. 

Wenn man sich allerdings etwas mehr Zeit läßt, dann reicht 
auch ein Homecomputer wie der C 64 aus, um solche Grafi¬ 
ken (mit bestimmten Einschränkungen) zu erzeugen. 

Das hier vorgestellte Grafikpaket geht über das übliche 
Punkte setzen und Linien ziehen weit hinaus. Es erlaubt die 
Erzeugung von plastischen Bildern ohne größeren Aufwand, 
wie zum Beispiel in Bild 1 und 2 dargestellt. 

Das eigentliche Grafikpaket nimmt nur 3 KByte (!) des Spei¬ 
chers in Anspruch und steht im Bereich ab $C000. Damit 
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bleibt der Basic-Speicher für die eigentlichen Programme 
frei. Auch das DOS 5.1 von Commodore kann parallel zu den 
Grafikroutinen verwendet werden. Aufgrund der Kompaktheit 
dieses Grafikpakets mußten allerdings bestimmte Dinge, wie 
zum Beispiel die Abfrage auf legale Koordinaten, in den Hin¬ 
tergrund treten; die Software fängt also solche Fehler nicht 
ab. Das macht das Schreiben eines eigenen Programms zwar 
etwas komplizierter, hat man aber erst einmal alle Fehler 
beseitigt, so würde eine Fehlerabfrage den Ablauf nur ver¬ 
langsamen. 

Beginnen wir mit den Grundlagen zur Erzeugung der Grafik. 
Da stellt sich zunächt einmal die Frage, wie man die verschie¬ 
denen Helligkeitswerte und Schattierungen eines darzustel¬ 
lenden Objektes berechnet. Danach müssen diese verschie¬ 
denen Grauwerte in einzelne Punkte umgesetzt werden, 
denn auf dem HiRes-Bildschirm können diese ja nur gesetzt 
und gelöscht werden. Dazu muß die gesamte Software selbst 
geschrieben werden, da der C 64 diese Art der Grafik vom 
Betriebssystem her nicht unterstützt. 


Schnelle Rechenroutinen 


Das Maschinenprogramm, das für den Aufbau der Grafik 
zuständig ist, besteht aus mehreren Unterprogrammen. 
Beginnen wollen wir mit einem Unterprogrammpaket, das für 
schnelles Rechnen notwendig ist. 

Integer Arithmetik (Listing 1) 

Diese Unterroutinen stellen schnelle Algorithmen für Mul¬ 
tiplikation, Division, Wurzelziehen und Zufallszahlen zur Ver¬ 
fügung. Diese sind zwar schon im normalen Basic-Interpreter 
vorhanden, für unsere Anwendung sind sie jedoch aus 
Geschwindigkeitsgründen ungeeignet. Die Basic-Routinen 
sind nämlich nicht auf Geschwindigkeit, sondern auf Kürze 
optimiert worden, wie zum Beispiel die Funktion SQR. Die 
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Wurzelberechnung in Basic teilt den Logarithmus durch 2 und 
potenziert das Ergebnis anschließend wieder. Das hat den 
Vorteil, daß der Interpreter auf bereits vorhandene Unterpro¬ 
gramme zugreifen kann, aber den Nachteil, daß diese 
Berechnungsweise relativ langsam ist. Wenn man für alle 
64000 Bildschirmpunkte die Quadratwurzel mit den vorhan¬ 
denen Routinen berechnen würde, ergäbe sich eine Zeichen¬ 
zeit von mehr als einer Stunde (und dies trotz Maschinenspra¬ 
cheprogramm)! Man benötigt diese Berechnung zwar nicht 
für jeden Punkt, aber gerade bei der Berechnung der Schat¬ 
tierungswerte spielt die Quadratwurzel eine große Rolle. Eine 
Möglichkeit, die Wurzelberechnung zu beschleunigen bietet 
die Newton-Methode, mit der man Fließkommawurzeln in 



Bild 1. Eindrucksvolle räumliche Wirkung durch 
Kombination verschiedener Shapes 


einem Bruchteil der sonst benötigten Zeit berechnen kann. 
Da wir, um die einzelnen Grafikpunkte zu adressieren, nur 
ganze Zahlen benötigen, beschleunigt sich die Abarbei¬ 
tungszeit nochmals. Auch die Routine für die Erzeugung von 
Zufallszahlen, die später bei der »Random«-Schattierung 
erforderlich ist, wurde neu geschrieben. 

Grafik Utilities (Listing 2) 

Die nächste Unterprogrammsammlung beinhaltet Basis¬ 
routinen für die Verwaltung der Bitmap wie zum Beispiel 
löschen, Farbe setzen und Punkte plotten. Diese Unterrouti¬ 
nen sind als einzige Commodore 64-spezifisch, so daß man 
— möchte man das Programm auf andere 6502-Computer 
übertragen — nur diese an das jeweilige Gerät anpassen 
muß. 

Ferner wurden noch zwei Schattierungsroutinen »SHADE« 
und »RSHADE« implementiert. »SHADE« arbeitet im Prinzip 
ganz einfach: Man definiert eine 8x8 Graustufenmatrix, in 
der Werte von 0 bis 63 enthalten sind (Tabelle 1). Mit Hilfe die¬ 
ser Daten wird nun ein — ebenfalls 8x8 Pixel großes — Feld 
erstellt, daß dann an einer bestimmten Stelle in den HiRes- 
Bildschirm kopiert wird. Um eine gleichmäßige Grauschattie¬ 
rung zu erreichen, müssen die Pixels auch möglichst einen 
gleichmäßigen Abstand voneinander haben. Wenn das Pro¬ 
gramm nun einen Grauwert in die Grafik setzen will, so über¬ 
gibt es einfach einen Wert zwischen 0 und 63 an diese Unter¬ 
routine. Nun werden innerhalb dieser Matrix die einzelnen 
Punkte der Reihe nach gesetzt, also zuerst der Punkt mit der 
Nummer 0 (oben links), dann 1 (4. von links und 4. von oben) 
und so weiter. Also, je größer die Zahl ist, desto mehr Punkte 
werden gesetzt (und um so dunkler wird das Ganze). Durch 
diese festgelegte Reihenfolge wird sichergestellt, daß die 
Schattierung gleichmäßig ist. Die RSHADE-Unterroutine hat 
genau die gleiche Aufgabe, sorgt aber für etwas ungleich¬ 
mäßigere — durch den Zufallsgenerator gesteuerte — Grau¬ 
werte. 


Ein weiteres zu lösendes Problem ist das etwas merkwür¬ 
dige rechteckige Bildschirmformat des C 64. Die Auflösung 
von 320 x 200 Punkten entspricht einem Teilungsverhältnis 
von 8:5, wodurch es bei einem normalen Bildschirm — mit 
einem Verhältnis von 4:3 — zu einer horizontalen Verzerrung 
kommen kann (eine Kugel würde dann etwa wie ein plattge¬ 
drückter Ball aussehen). Die Unterroutine »SCALE« (in 
Listing 2) sorgt für diese darstellungs- und maßstabsge¬ 
rechte Aufbereitung der Koordinaten. 


Linien und Facettenzeichnen 

Die Routinen in Listing 3 komplettieren die elementaren 
Grafik-Funktionen für das Ziehen von Linien und das Zeich- 



Bild 2. Verblüffende Effekte lassen sich erzielen. 
Beachten Sie den Lichteinfall. 


nen vo^ - '.hattierten Polygonnetzen. Ein solches räumliches 
Polygonnetz ist in Bild 3 zu sehen; es besteht nur aus anein¬ 
ander gesetzten und entsprechend schattierten Dreiecken. 
Diese Figuren können einfacher und schneller gezeichnet 
werden, da die Schattierung auf ebenen Flächen einfacher 
darzustellen ist als auf gekrümmten. Neben der üblichen Dar¬ 
stellungsweise (in der geschlossenen, schattierten Form) ist 
auch die Zeichnung von Grafiken ohne verdeckte Linien 
möglich. 

Mit diesen Routinen gerüstet, können wir uns nun auf das 
eigentliche Shape-Unterprogramm konzentrieren, mit dem 



Bild 3. Ein weiteres Beispiel für die 3D-Wirkung 
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es möglich ist, gekrümmte, schattierte Figuren in kurzer Zeit 
zu erstellen. 

Hier geht es wiederum als erstes um die Berechnung der 
verschiedenen Oberflächenreflexe, Brechungen, Streuun¬ 
gen und Absorptionen des Lichtes auf einer Oberfläche. Um 
diese, teilweise sehr komplizierten Berechnungenn, zu ver¬ 
einfachen, geht man einen anderen Weg: Man beschränkt 
sich auf einige einfache symmetrische Figuren (Bild 4), aus 
denen alle zu zeichnenden Objekte zusammengesetzt wer¬ 
den. Weiterhin werden die Figuren nur in der Frontsicht, also 
von vorn, dargestellt; Drehungen sind nicht möglich. Durch 
diese Einschränkungen braucht man bei der Programmie¬ 
rung nicht auf komplizierte Vektorberechnungen zurückzu¬ 
greifen. 


Bildschirmecke liegt. Die einzusetzenden Werte gehen in der 
Horizontalen von 0 bis 255, in der Vertikalen von 0 bis 239. 

Alle Shapes, mit Ausnahme der Kugel, können durch die 
Eingabe von insgesamt vier Parametern in ihrer Position und 
Form beeinflußt werden. Die ersten zwei bestimmen, wie 
oben erläutert, die Koordinaten des Figurmittelpunktes. Mit 
dem dritten und vierten Paramter kann man die Verzerrung in 
X- und Y-Richtung einstellen. Doch hier ist Vorsicht geboten, 
denn der X-Wert sollte hierbei immer größer als der Y-Wert 
sein, sonst zeichnet das Programm unerwünschte Figuren. 

Eine weitere Besonderheit sind die Shape-Fenster. Damit 
ist es möglich, auch einzelne Teile eines Shapes auf dem Bild¬ 
schirm zu bringen. Diese Funktion wurde zum Beispiel bei 
der Erstellung der Grafik in Bild 1 verwendet. Der Henkel die- 



Bild 4. Die zur Verfügung stehenden Shapes, aus denen Bild 5. Aus einfachen Figuren lassen sich verblüffend 
alle Figuren zusammengesetzt werden »!«">indige« Bilder zusammensetzen 


Für die Berechnung des Lichteinfalls stelle man sich ein¬ 
fach eine Lampe vor, die an der rechten Schulter des Beob¬ 
achters angebracht ist und das Objekt von dieser Position 
anleuchtet. Dementsprechend errechnet das Programm die 
Helligkeitswerte für jeden Punkt des Objektes. Ein Flag 
(Adresse 898) dient dazu, den Standort der »Lampe« (0= 
Frontbeleuchtung, 1= Beleuchtung von hinten) festzulegen. 

Zeichenroutinen für Shapes 

Listing 4 beinhaltet eine Sammlung von Routinen, die die 
acht Grundshapes (siehe Bild 4) zeichnen. Da dieses Unter¬ 
programm auf die — an den C 64 angepaßten — Lower-Level- 
Routinen der Grafik-Utilities (Listing 2) zugreift, ist es selbst 
nicht vom jeweiligen Computer abhängig. Zusammen mit 
dem, in Listing 5 abgebildeten Programm, wird der Kontakt 
zum Basic hergestellt. Die Übergabe der Parameter 
geschieht mittels »SYS«-Befehl: 

SYS <KOMMANDO>, <PARAM. 1,>, <PARAM. 2>. 

wobei < KOMMANDO > die Adresse des jeweiligen Grafik¬ 
befehls ist (Tabelle 2 zeigt die komplette Befehlsübersicht 
dieses Grafikprogramms). Über < PARAMETER 1> und 
< PARAMETER 2> müssen die Koordinaten des Shapes 
angegeben werden, wobei zu beachten ist, daß der Ursprung 
(dort wo die X- und Y-Koordinate null ist) in der linken unteren 
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Grafikspeicher: 40960-48959 
Farbspeicher: 33792-34791 
Shape-Fenster 
893: Linker Rand 

894: Rechter Rand 

895: Unterer Rand 

896: Oberer Rand 

Style Flags 

838: Schattierungsart (0 = zufällig, 1 = Halbton) 

839: Skalierungsflag (0 = normal 1:1, 1 = skaliert 4:3) 

868: Eck Flag bei Polygonen (0 = Normal, 1 = zeichnet Linien 

an den Ecken) 

871: Eckenmodus (0 = zeichnet Linie, 1 = löscht Rand) 

898: Beleuchtungsflag (0 = von vorne, 1 = von hinten) 

Funktionsadressen 

49378: Auf den Grafikmodus umschalten 
49411: Zurück zum Textbildschirm 
51979: Bitmap löschen 
52001: Bitmap färben 

52023: PLOT (Parameter X,Y) setzt einen Punkt 
52026: UNPLOT löscht einen Punkt mit den Koordinaten X und Y 
52049: UNE (Parameter X1.Y1.X2.X2) zieht ünie von / bis 
52052: FACET X1,Y1,X2,Y2,X3,Y3,SA zeichnet dreieckige Facetten 
mit den Koordinaten X1.Y1, X2,... und schattiert sie 
(SA: 0 = schwarz, 64 = weiß) 

Shapes 
52119: Kugel 
52141: Ring 
52150: vertikaler Zylinder 
52153: horizontaler Zylinder 
52186: vertikaler Ring 
52189: horizontaler Ring 
52203: vertikale Rolle 
52206: horizontale Rolle 
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ser Kaffeetasse ist aus drei verschiedenen Shapes zusam¬ 
mengesetzt, die mit Hilfe des Fensters in ihrer Ausdehnung 
eingeschränkt wurden. Diesen Begrenzungsfenstern sind 
die Adressen 893 bis 896 zugeordnet, wobei sich die 
POKE-Werte auf den Mittelpunkt der Figur beziehen. 

Die Kommandos, um die Bitmap zu löschen oder mit Punk¬ 
ten zu füllen, benötigen auch alle nur einen Parameter. So 
sieht zum Beispiel das Kommando zum Initialisieren des Farb- 
speichers so aus: 

POKE 52001,16* DC + BC 

wobei DC die Farbe der zu setzenden Punkte und BC die 
Hintergrundfarbe ist. Auch Texte können nach Wunsch auf 
dem Grafikbildschirm ausgegeben werden. Die dafür zustän¬ 
digen Routinen sind in Listing 2 enthalten. 

Die in Listing 10 und 11 abgedruckten Demonstrationspro¬ 
gramme sollen helfen, die Arbeitsweise und die Kombina¬ 
tionsmöglichkeiten der einzelnen Shapes aufzuzeigen. Auch 
alle hier gezeigten Bilder stammen von diesem Programm. 
Die Bilder stehen im Speicher übrigens »unter« dem Basic- 
ROM im Bereich zwischen $A000 und SBFFF. 

Um den Platz für das DOS 5.1 freizuhalten, wurde das Gra¬ 
fikpaket in zwei Teile aufgespalten. Der eine Teil mit dem 
Namen GRAPHICS (Listing 8) befindet sich im Bereich zwi¬ 


schen $C000 und $CBFC. Der zweite Teil, auf den im folgen¬ 
den noch kurz eingegangen werden soll, muß nach Adresse 
$CF59 geladen werden. Dieser Programmteil enthält eine 
schnelle Sortierroutine (Listing 6) und ermöglicht die Darstel¬ 
lung von Text auf dem Grafikbildschirm (Listing 7). Diebeiden 
Unterprogramme sind in dem MSE-Listing 9 zusammenge¬ 
faßt worden und müssen gemeinsam mit »GRAPHICS« in den 
Speicher geladen werden. 

Hinweise zum Abtippen 

Sie müssen als erstes die MSE-Listings 8 und 9 eingeben 
und anschließend natürlich auch abspeichern. Die Listings 1 
bis 7 dienen nur zur Dokumentation und brauchen nicht ein¬ 
gegeben werden. Nachdem Sie auch die Demos abgetippt 
und auf Diskette oder Band gespeichert haben, müssen die 
einzelnen Programmteile nacheinander in den Speicher gela¬ 
den werden. Begonnen wird mit GRAPHICS, das mit LOAD- 
"GRAPHICS",8,1 in den Speicher gelesen werden muß. 
Nachdem man anschließend NEW eingegeben hat, muß das 
zweite Maschinenprogramm, wie oben, geladen werden 
(auch hier das NEW nicht vergessen). Anschließend kann 
wahlweise eines der beiden Demonstrationsprogramme 
(Listing 10 oder 11) geladen und ganz normal gestartet wer¬ 
den. (Richard Rylander/Christoph Sauer/ev) 


J INTEGER ARITHMEHC ROUT INES 
I " 

; RICHARD L. RYLANDER S/12/B4 

I REVISED 10/29/8« TO ADD FULL DOUBLE 
j PRECISION ARGUMENTS IN DIVIDE ROUTINE 


USE .PAGE ZERO LOCATIONS WHERE POSSIBLE FOR 
ITERATIVE PROCEDURE WORK SPACE 


MLPCND =*AC 
MLPLER -*AO 
PROD »«AE 
I 

DVDND “JFD 
DV50R -SFB 
RMNDR -*B« 

I 

RAOCND =*AC 
ROOT -*033C 


l HULTIPLICANO 
J NULT 1PLIER 
; PRODUCT 

j DIVIDEND/OUOTIENT 
; DIVISOR 
; REHAINDER 

; KADILAND 
I SQUARE ROOT 


TEHP -*F6 
I 

j SET UP SEED VALUES FOR PSEUDO—RANDOM NUMBERS 

••»C000 

RNDM .BYTE «FF,*55 
RT6HP .BYTE *00.*00 
; 
i 
; 

; MULTJPLY SINGLE PRECISION MULTIPLICAND 
i BY SINGLE PRECISION MULTIPLIER 6IVINS 
| DOUBLE PRECISION PRODUCT (ENTER AT "MULT“» 

; 

I SPECIAL CASE: ENTER AT "SQUARE“ TO FIND 
I SQUARE OF S1GNED B-BIT NUMBER 


« 




ROL 

TEMP 

SQUARE 

LDA 

MLPCND 

; ENTKY TO SQUARE 

ROL 

TEHP*! 


BPL 

POSITV 

! USE ABSOLUTE VALUE 

SEC 



SEC 


, NEGATE IF NEEDEO 

LDA 

TEMP 


LDA 

**00 


SBC 

ROOT 


SBC 

MLPCND 


TAY 



STA 

MLPCND 


LDA TEMP*1 

POSITV 

STA 

MLPLER 


SDC 

ROOT*» 

MLä_T 

LDA 

B*»0 

; ENTNY TO MULTIPLY 

BCC 

RESTOR 


LDX 

**08 


STA 

TEMP *1 

ML OOP 

LSR 

MLPLER 


STY 

TEMP 


BCC 

NOADD 


INC 

ROOT 


CLC 



BNE 

NEXT2 


ADC 

MLPCND 


INC 

ROOT * S 

NÜAÜD 

KON 

A 


NEXT2 DEX 



ROR 

PROD 


BNE 

SORTI 


DEX 



JHP 

F INI 


BNE 

ML OOP 


RESTOR SEC 



STA PROD*I 


LDA 

ROOT 


RTS 



SBC 

«sei 


( DIVIDE DOUBLE PRECISION DIVIDEND 
; DY DOUBLE PRECISION DIVISOR GIVING 
i DOUBLE PRECISION QUOTIENT 
5 

I DIVIDEND IS REPLACED BY QUOTIENT 
I IN THE PRDCESS 
: 

; OUOTIENT IS ROUNDED TO NLAREST INTEGER 
: 

DIVIDE LDA M00 
STA RMNDR 
STA RMNDR»1 
LDX **10 
DL OOP KOL DVDND 

ROL DVDND*1 
ROL RMNDR 
ROL RMNDR*1 
SEC 

LDA RMNDR 
SBC DVSOR 
TAY 

LDA RMNDR*I 
SBC DVSQR-* 1 
BCC DECCNT 
STY RMNDR 
STA RMNDR*1 
DECCNT DEX 

BNE DLODP 


ROL DVDND 
ROL DVDND«1 
ASL RMNDR 
ROL RMNDR*1 
BUS ROUND 
SEC 

LDA DVSOR 
SBC RMNDR 
LDA DVSOR«I 
SBC RMNDR»1 
BCS NOCKMi 
ROUND INC DVDND 
Bf« NOCHNG 
INC DVDND» 1 
NOTHNG RTS 


: CHECK IF REMAINDER 
j IS >- J/2 OF DIVIDEND 
; FOR ROUNDINQ 


TAKE INTEGER SQUARE ROOT OF A 
DOUBLE PR El 
SINGLE PKEC 


SIS 


SQRT 


LDX 
LDA 
STA 
STA 
STA 
STA 

SQRT1 ASL 
ROL 
INC 
Bf« 
INC 

NEXT1 ASL 
ROL 
ROL 
ROL 
ASL 
ROL 


**00 

*«00 

ROOT 

ROOT*1 

TEHP 

TEHP*1 

ROOT 

ROOT*l 

ROOT 

NEXT1 

ROOT*! 

RADCND 

RADCND*1 

TEHP 

TEMP*I 

RADCND 

RAOCND*1 


t ASSUME CURRENT LSB OF 
t ROOT WILL BE I 


SHIFI RADICAND LEFT 
; TUICE INTO TEHP 


j SUBTRACT ROOT ESTIMATE 
I FRCH TEHP 


SUBTRACTION OK 


; IGNORE SUBTRACTION 
; AND RESET LSB OF ROOT 


STA 

BCS 

DEC 

NEXT3 DF X 
FINI ROR 


ROOT 

NEXT3 

ROOT*1 


SQRT 1 
ROOT♦1 
ROR ROOT 
RTS 


t FINAL /2 TO NORMALIZE 




HFNEKAIE PSEUDO-RANDOM BYTES 
EXIT WITH P-R BYTE IN ACCUM. 


RANDOM LDA RNOM 
STA RTEMP 
EOR RNOM*! 
ROL RTEMP*1 
ROR A 

ROR RTEMP*l 
STA RNDM 
LOA RTEMP 
STA RNDM*1 
RTB 


; RTEMP-1 PRESERVES 
! CARRY BIT FOR CYCLING 
; RANDOM NUMBtHS 


.END 


Listing 1. Assembler-Quelltext der 
schnellen Integer-Arithmetik 


i GRAPHICS UTILITIES 
I 

( RICHARD L. RYLANDER 


I LOAD ARITT01ETIC UTILITIES FIRST 


*AM-*033E 

ORISIN=«C0E2 

I 

HLPCND-«AC 
NLPLER—*AD 
PKUD-*A£ 
nULT=*CeiI 


: MULTIPLICAND (S) 
i MULTIPLIER (S) 

: PRODUCT (Dl 
; CALL FOR KULTIPLY 


» 

RNDM-*CB00 
RANDOM-*CBCQ 


I 

• •RAM 
PLTFLG •-■*! 
«PLT ■-■*2 
VPLT *-11*1 
VICI *■**! 
VIC2 

VALUL •-•*2 
HTORRN *=*+! 


=•*2 


TEMP 


| PLOT/UNPLOT FLAG 
i ABSOLUTE PLOT CODKD 
; ABSOLUTE PLOT CfltlHO 
; REGISTER STORAOC 
5 REGISTER STQRAGE 
* FINAL NORMALIZED SMAOE VALUL 
X SHADE FLAG, l=HALFTONE 
| SCALE FLAG, I°NO SCALE 
t TEMPORARY STQRAGE 


TIRN ON BIT MAP GRAPHICS MODE. 
SAV1NG REGISTER VALUES FOR 
RETURN TO TEXT MODE LATER. 


LDA *DOU 
ORA M20 
STA *D0I1 
IDA »ODSMK 
STA V1C1 
AND MFC 
ORA «*0I 
STA 4DDB0 
LDA »D01O 
STA VIC2 
LDA M19 
STA »DO18 
RTS 


; RETURN TO TEXT SCREEN 


GRFOFF LDA «D01I 
AND «DF 
STA *D0l1 
LDA V1C1 
STA *DDOO 
LDA VIC2 
STA «D018 
RTB 


I TILL COLON MAP FUN ULHLK OÜIS UN NHIIk 

* 

COLON LDA MÜ1 ; POKE NEW COLONS ULKE 
LDX *0 

COLI STA *8400,X 
STA «esoa.x 
STA «S6C0.X 
STA »8700,X 
DEX 

BNE. COLI 
RTS 


;••••••••••••••••••••••»•••»•••• 

I 

« CLCAR Hl RCO GRAPHICS SCRLLN 
I 

CLEAN LOA **A0 
STA «FC 
LDY *0 
STY *FB 

LDA *0 i CLEAR BYTE 


Listing 2. Assembler-Quelltext der 
Grafik-Utilities 




; RANDOM NUMBER 
I CALL FOR RANDDM 
NOTE - A CALL TO RANDOM LEAVES A RANDOM BYTE 
IN THE ACCUMULATOR 






(■SÄ-tf 


99 

64er-oi 


u-ncl 
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I BASIC ROH OUT 


I INVERT Y COORDINATE TO 
; PUT ORIGIN IN LOWER LEFT 
1 CORNER OF SCREEN 
; <199.-YPLT) 


LDX ««20 
STA <*FB),Y 
INY 

Bf« CLRLP 
INC »FC 
DCX 

BNE CLRLP 
RTS 


PLOT AMD UNPLOT POINTS ON HI-RES GRAPHICS 
SCREEN. ABSOLUTE X AND Y SCREEN COORDINATES 
ARE POKED INTO XPLT, XPLT*l t AND YPLT 


PLOT LDA •«« 

.BYTE »2C 
UNPLOT LDA ««IM 

StA PLTFL6 
LDA fttl 
AND #*FE 
STA »ai 
SEC 

LDA «*C7 
SBC YPLT 
TAX 
LSR A 
LSR A 
LGR A 
TAY 

LDA TABLEI.Y 
STA *FB 
LDA TABLE2.Y 
STA »FC 
TXA 

AND 9*07 
CLC 

ADC »FB 
STA «FB 
LDA XPLT 
AND »»TO 
ADC »FD 
STA »FB 
LDA XPLT•1 
ADC »FC 
BIA SFC 
LDA «SAD 
ADC »FC 
STA »FC 
LDA XPLT 
AND 9*07 
EOR **07 
TAX 

LDA »*01 
PLOTLP DCX 

BMI PLQT2 


ONE PLOTLP 

PLOT2 LDY *0 

DIT PLTFLO 
BPL MOPLOT 
EOR 9*FF 
AND ISFB),Y 
.BYTE «2C 

NOPLOT QRA (SFB),Y 
STA 1»FB),Y 

LDA »«II ; BASIC ROM REBTONED 

URA »*H1 
6TA »01 
RTS 

I 

TAOLEI .BYTE »00.*40.*00.*C0 
.BYTE *00.*40,SBC,*C0 
.BYTE <00,*40,<00,«CO 
.BYTE *B0,X40,»ae,*C0 
.BYTE »00.S40.Slie.tCa 
.BYTE *UM.*4«,*HB.*Ca.*B0 

TA8LE2 .BYTE *00.»01.*02,*03 
•BYTE *0S,*0A.*07,*ea 
.BYTE SBA,»0B.SaC.»0D 
.BYTE *BF,*10,»ll,*12 
•BYTE *14,*15,»16,»17 
.BYTE *19,SIA,*1B,S1C,*1E 

I 

s 

I BMAOINB DY HYBRID DITSCR/DOT-GRONTH 


LDA XPLT 
AND **07 
STA TEMP 
LDA YPLT 
AND *»07 


* USE BITS -••• 

S OF ‘X SCREEN COORD 


AND BITS-- 

OF V SCREEN COORD 


ASL A 
ORA TEHP 
TAX 

LDA IMRESH.X 
CNP VALUE 
BPL 6REATR 
JHP UNPLOT 
6REATR JHP PLOT 


; SHIFTED INTO 
; POSITION TO DETERNINE 
; 6-BIT OFFSET IN 
I UAESHOLD TADLE 

SCALEN-POS 1 T ION-WC ICH* TL 
Tf**E5H0LD VALUE 




5HADING BY RANDOM HALFTOf« 


RSHADE JSR RANDOT 
LSR A 
LSR A 
CHP VALUE 
BPL HOHE 
JHP UNPLOT 
HO»« JHP PLOT 


j REDUCE RANDON BYTE 
; TO 6 BITS FOR SHADE 
j VALUE COHPARISON 


*• 

J PLOT A POINT MEIGHTED BY SMADJNG SCHEUE 
; AND SHADE VALUE 

j CHECK NOSCAL FLAG FOR SCALING OF Y COORD 
; CI« CK HTORRN FLAG FOR TYPE OF BHADING 


FROH 0-239 PSEUDO-COORDINATES 
TO 0-199 TRUC SCREEN COORDINATES BY 
Y • <Y*1)*213/230 

CALE LDY YPLT 
INY 

STV r».PVER 

LDA »SOS s 213. 

STA M.PCND 
JSR MULT 
STA YPLT 

ORM lDA HTORRN 

BEO RPLI 
JHP SHADE 
PLT JHP RSMAOE 


TT0TESH .BYTE *00,*eQ,S3S,*3D 
.BYTE *•?.*0A,*37,*3F 
.BYTE *in,SlB,S7ä,S7D 
.BYTE *12,*IA,*27,*2F 
.BYTE »31,*39,»04,»0C 
.BYTE »33, *38, »06,*» 

-BYTE *21.*29,*I4,*1C 
.BYTE »23,»78,»16,»iE 
.BYTE *O3,»0B,*36 > »3E 
.BYTE *01,SB9,*34,*3C 
.HVTF *I3,*1D,*26,*2E 
.BYTE *11,*19,»24,*2C 
.BYTE *37.*3A,*07,»0F 
•BYTE *30,»30,*03,»0D 
.BYTE »22,*2A,*17,*1F 
.BYTE *20,>20,»13,»ID 

• END 

Listing 2. Assembler-Quelltext 
der Grafik-Utilities (Schluß) 


; FACET - DRAW SHADED TRIANGULÄR FACETS 
; AND STRA1GHT LINES. 

I RICHARD L. RYLANDER 1X/4/B4 

; LOAD 'PRITH.HEX" AND “GRAPH.HEX" 

I BEFORE USING 

ORIGIN - »C26F 
RAH = «034A 

I 

XPLT * »033F 
YPLT - »0341 
NORM • *C224 
NOSCAL = *0347 
PLOT - SCI43 
UNPLOT - *C14A 
I 

HLFCND - SAC 
HL PLER = »AD 
PROO ■ »AE 
HULT * *C011 

DVDND = »FD 
DVSOR = «FB 
OUOT - »FD 
DIVXDE = *C023 


I 

XHIN 

YMIN 

XHID 

YMID 

XHAX 

YHAX 

YTOP 

YBOT 


• -RAH 

*-•*2 

1 

• >•*2 
*-•*1 

•-**1 


=•♦1 
DLTAX1 *--»*2 
DLTAX2 •=*♦! 
DLTAX3 
DELTA» «-»»1 
DLTAY1 •-••! 
DLTAY2 1 

DLTAY3 *=**! 
DELTAV I 

XDIFF *=•*! 
FLAGI • »**! 
FLAG? *-*♦! 
FLAGS 
FLAG ■ 
EDGES •»•*! 
tRKW •■•*2 
HODE 

COUNT •-••2 

I 

1 


1 

j••■■•••••••■•••■••••••*•••*•••••••••« 

j SCALE OLL V COORDINATES FROH 0..239 
• PSUEDO-COORDINATE RANGE TO 0 . .199 
; TRIJE SCREEN COORD INATE RANGE 
» 

SCALE LDY «6 

LDA **D3 
STA HLFCND 
BCLP LDA YMIN,Y 
STA HLPLER 
JSR MULT 
5TA VMXN.Y 
DEV 
oev 

DEV 

BPL 3CLP 
RTS 


1 

; EXCHANGE 'HIN’ AND ‘HID* COORDINATES 
I 

SWAP12 LDY »2 
LOOP1 LDA XMIN.Y 
PHA 

LDA XHID,Y 
STA XHIN,Y 
PLA 

STA XHID.V 
DEY 

BPI LOOP1 
RTS 

1 

| EXCHANGE MID’ AND ’NAX’ COORDINATES 

SUAP73 LDY *2 
LOOP7 LDA XMID.Y 
PHA 

LDA XHAX.Y 
STA XHID,Y 
PLA 

STA XHAX.Y 

DEY 

BPL LOOP2 
RTS 


DORT COORDINATES ACCORDINQ TO X COHPONENTS 


BCS NO SW PI 
JSR SWAP12 
NOSWF1 DEX 

DEO SORTED 
SEC 

LOA XHAX 
SBC XHID 
LDA XHAX*1 
SBC XHlD*l 
BCS SQRTLP 
JSR SWAP23 
JHP SQRTLP 
SORTED RTS 


; DRAU A LINE BETMEEN XHIN,YHIN AND XHID,YMID 
1 U31NG FAST DDA (DIGITAL DIFFERENTIAL ANALYlER) 
; TECHNIDUE 


LINE LDA »2 

STA XHAX•1 
JSR BORT X 
LDA NOSCAL 
DEO 00 TUN 
JSR SCALE 
OUTLN JSR FINDXV 
LOA XHIN 
STA XPLT 
CDA XM1N+1 
STA XPLT*i 
LDA YH1N 
STA YPLT 
LDA DLTAX1*1 
IP* STEPX 
SEC 

LDA DLTAX1 
SBC DLTAY1 
BCS STEPX 
STEPY LDA DLTAVI 
STA ERROR 
STA COUNT 
LSR ERROR 
SEC 

LDA DU TAXI 
SBC ERROR 
STA ERROR 
LDA IH.TAXIM 
BBC *0 
STA ERROR*1 
INC COUNT 
LNLP1 LDA KODE 

Bf* ERASfcl 
JSR PLOT 
JHP SKI 

ERASEI JSR UMH.ÜT 
SKI LDA FLAGI 
ONC NSLOPE 
INC YPLT 
UN*: SK7 * 
NSLOPE DEC YPLT 
SK2 BIT ERROR*1 
8H1 SK3 
INC XPLT 
BNE N0INC1 
INC XPLT*1 
NOINC1 CEC 

LDA ERROR 
SBC DLTAY1 
STA ERROR 
LDA ERROR*1 
SBC 90 
STA ERROR*1 
SK3 CLC 

LDA EHKUH 
ADC D LTAX I 
BTA ERROR 
LDA ERROR*1 
ADC DLTAX1*1 
STA ERROR*1 
DEC COUNT 
Bf« LNLPI 
RTS 


; ENSURE XHAX IS 
; I ARGFST BEFORE 
S ORDERINb HIN AND HID’ 


| ENTRV POINT TO 
; OUTLINE FACETS 


| CHECK FOR DX>DY 


; o 


DRAU, 1 - ERASE 


I 0 - POSITIVE SLOPE 


ALWAVS BRANCH 


l 

STEPX LDA DLTAXI 
STA ERROR 
STA COUNT 
LDA DLTAX1*1 
STA EPRQR»1 
STA COUNT*l 
LSR ERROR*1 
HUK fcHHUR 
SEC 

LDA DLTAVI 
SBC ERROR 
STA ERRUH 
LDA 9 « 

SBC ERROR*I 
BTA ERROR*I 
LNLP2 LDA HODE 

EHE ERASE2 
JSR PLOT 
JHP SKF1 

ERASE7 JSR UK’LOT 
SKP1 INC XPLT 

ENE NOINC2 
INC XPLT41 
NOINC2 BIT ERROR*! 

BHI BKP3 
LDA FLAGI 
ONE NQSLP 
INC YPLT 

BNE 5KP2 j ALWAYS BRANCH 
NGSLP DEC YPLT 
SKP2 SEC 

LDA ERROR 
SBC DLTAX1 
STA ERROR 
LDA ERROR*1 
SBC DLTAX1*1 
STA ERROR*1 
SKP3 CLC 

LDA ERROR 
ADC DLTAY1 
STA ERROR 
LDA ERROR*1 
ADC *0 
STA ERROR*t 
SEC 

LDA COUNT 
SBC 91 
STA COUNT 
BCS TEST 
DEC COUNT.I 
TEST BIT COUNT*! 

BPL LNLP2 
RTS 


SORTX LDX «2 

SQRTLP SEC 

LDA XHID 
SBC XHIN 
LDA XHID*I 
SBC XHIN*1 


Listing 3. Assembler-Quelltext 
zum Zeichnen von Linien 
und Dreiecken 
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I DRAM A SHAOCD VERTICAL LINE AT 
; XPLT PROM VTOP 10 VBOT 


SEC 

LDA VTOP 
SBC YBOl 
BCS DRAM 
LDA VTOP 
PHA 

LDA VBOT 
STA VTOP 
PLA 

STA VBOT 
LDA VTOP 
STA VPLT 
JSR NORM 
LDA VTOP 
CMP VBOT 
bEO DO NC 
DEC VIOP 
JMP DRAM 
RTS 


| HAKE SURE VTOP>VBOT 


j PLOT A SHADE-WEIGMTED 
| PIXEL CHECK INS ONLV 
; FÜR SHADE STYLE 


» F INO ENDROINTB FOR VERTICAL L1«S 
} BETWEEN PACHT EDÖCS 

ENDPTS LDA XD1FF 
STA MLPCND 
LDA DELTAV 
STA MLPLER 
JSR MULT 
STA DVOND»l 
LDA PROD 
SIA DVDND 
LDA OB 
STA DVSOR*» 

LOA DELTAX 
STA DVSOR 
JSR DIVIDG 
LDA FLAG 
B»« NEOSLP 
CLC 

LDA VBASE 
AOC OUOT 
BCC 8KIP2 
NEGSLP SEC 

LDA VBASE 
SBC OUOT 
SKIPS RTS 


| FIND COORDINATE DIFFERENCES 

I ALL -DELTA X” VALUES POSITIVE, 

; SINGLE PRECISION (JUST LOWER BYTE» 

FXNDXV SEC 

LDA XMID 
SBC xmw 
STA DLTAXt 
LDA XH1DM 
SBC XHIN+1 
STA OLTAXIM 
SEC 

LDA XMAX 
SBC XHID 
STA DLTAK2 
SEC 

LDA XMAX 
SBC XMIN 
STA DLTAX3 

; UBG ABS(DELTA VI VALUES. 

5 FLAGS INDICATE SLOPE OF LIMIT LINES 

LDA »500 

STA FLAQI 
STA FLAG2 
STA FLAGS 
SEC 

LDA YMID 
SBC VMIN 
BCS STOREl 
INC FLAG! 

LDA VMIN 
SBC VMID 

STORE I HTA DL TAYl 
SEC 

LDA YHAX 
SBC VMID 
BCS ST0RE2 
INC FL AG 2 
LDA VMID 
SBC YHAX 

ST0RE2 STA 0LTAY2 
SEC 

LDA YHAX 
SBC VHIN 
BCS STORE3 
INC FLAGS 
LDA VHIR 
SBC YHAX 

STORES STA 0LTAV3 
RTS 


; DRAM A SMADCD TRIANGULAR FACET 

FACHT JSR SORTX 
LDA NOSCAL 
DEQ VS». 

JSR SCALE 

VS»: JSR FINDXV 

LDA XHIN 
STA XPLT 
' I DA XMIN+1 
STA XPLT+1 

FCETLP SEC 

LDA XPLT 
SBC XMIN 
STA XDIPP 
LDA DLTAXt 
ÜLD CONT 
STA DELTAX 
LDA DLTAV1 
STA DELTAV 
LDA FLAGt 
STA FLAG 
LDA YMIN 
STA VBASE 
JSR ENDPTS 
STA VTOP 
LDA DLTAX3 
BEO CONT 
STA DELTAX 
LDA DLTAY3 
ETA DELTAV 
LDA FLAG3 
STA FLAG 
JSR ENDPTS 


STA VBOT 
JSR VLINE 
LDA XPLT+I 
CHP XMID*I 
BNE NEXTXt 
LDA XP1 T 
CMP XMID 
BEO CONT 
NEXTXI INC XPLT 
BNE SKIP3 
INC XPLT*I 
SKIPS JMP FCETLP 
CONT SEC 

LDA XPLT 
SBC XMIN 
STA XDIFF 
LDA DLTAX3 
BEO FIN! 
STA DELTAX 
LDA DLTAY3 
STA DELTAV 
LDA FLAG3 
STA FLAG 
LDA YMIN 
5TA VBASE 
JSR ENDPTS 
STA VBOT 
SEC 

LDA XPLT 
SBC XMID 
STA XDIFF 
LDA DLTAX2 
SEC F1NI 
STA DELTAX 
LDA DLTAY2 
STA DELTAV 
LUA FLAG2 
STA FLAG 
LDA VMID 
STA VBASE 
JSR ENOPTS 
STA VTOP 
JSR VLINE 
LDA XPt_T+l 
cr*> XMAX* 1 
BNE NEXTX2 
LDA XPLT 
CMP XMAX 
BEO FINI 
NEXTX2 INC XPLT 
BNE SKIPfl 
INC XPLT+t 
S»IP« JMP CONT 
FINI LDA EDGES 
BEO FINI9H 
JSR OUTLN 
JSR 0MAP23 
JSR OUTLN 
JSR SWAP12 
JSR SNAP23 
JSR SWAP12 
JSR OUTLN 
FINISH RTS 
-END 


Listing 3. Assembler-Quelltext 
zum Zeichnen von Linien 

und Dreiecken (Schluß) 

onunrp»-- 


! PRIMITIVE SOLID GRAPE DRAMIKG 
I 

i RICHARD L. RVLANOER II/7/B4 


t LOAD ARITHMCTIC AND GRAPHIC UTILITIES FIRST 


| (MMIIIt 

RAR-XD36A 

DRIBIN-*C3EA 

I 

MLPCND-*AC 
MLPLER-*AD 
PROD-*AE 
nULT=*C 01 | 

I 

DVDND-St-D 
DVSOR-»FB 
OUOT>»FD 
DIVIDEsCCeZS 


•••••••■•••• 


I 

ARG-*AC 

SOR-EAE 

BOUAKL-*COa>) 

* 

RADCND-«AC 

ROOT=*B33C 

SORT-*CQ64 


I fBJL T1 PL ICAND IBI 
l MULTIPLIER (Sl 
I PRODUCT (D> 

! CALL FOR MULTIPLY 

l DIVIDEND (D) 
l DIVISOR (Dl 
I QUOTIENT (DI 
; CALL FOR D1VIDC 

J ARGUMENT «SJ 
I SQUARE OF ARG (DI 
| CALL FOR SOUARE 

I RAD IC AND (D) 

; SOUARC ROOT (Sl 
j CALL FOR SORT 


RNDM=*C0UU 1 RANDOM NUMBER 
RANOOH-iCBCU | CALL FÜR RANDOM 

| NOTE - A CALL TO “RANDOM' LEAVES*A PANCCM BYTE 
I IN THE ACCUMULATOR 


XPLT-M33F 

VPlT**B541 

NORM-*C22S 

PL TOHO—*C2BF 

VALUE—*0344 

HT0RRN=*834fc 

NCSCAL-*B347 


XCENT 

XREL 

XSMD 

YCENT 

YREL 

YSMD 

ZREL 

/MX 


• -RAM 
«-*•7 

• = •*1 
•-••2 
•“Hl 
•-•*1 

■-•*2 

•=•*2 


TMTMP •-•*2 

I 

CLIPL 
CLIPR 
CLIPU •• 
CLIPD •• 

I 

MCHI «• 


CHTX 

CNTV 

MAX 


RC 

RO 


l FINAL NORMALIZEO SHADE VALUE 
S SHADE FLAG. l-HALFTONE 
t SCALE FLAB. 1-ND SCALE 


t CENTER COORD 
I RELATIVE (TO CENTER) 

! USED IN SHAD E CALC 
I CENTER COORD 
I RELATIVE «TO CENTER) 

S USED IN SHADE CALC 
; RELATIVE «TO CENTER) 

I Z WITH X «• OR -) 

I LOCAL RADIUS OF SURFACE 
; U5ED IN SHADE CALC 
l USED IN SHADE CALC 

| LEFT CLIPP1NC BOUND 
; RIGHT CL1PPING BOUND 
; UP CLIPPIW3 BOUND 
j DOMN CLIPPINB BOUND 

I PL OTT INO MFMISPM&RE 

j BACKLIT FLAB 
j HORIZONTAL/VERTICAL FLAO 
; TEMPORÄRV STDRAGE 
I LOOP COUNTER 
5 LOOP COUNTER 
i Loop Linir 

, HALF-LENGTH OF CVLINDERS 
| SOUAKE OF TOROIO RADIUS 
5 TORCID (RING* RADIUS 
I CENTER RADIUS OF TOROID 
; OUTER RADIUS OF TOROIO 


RI i INNER RADIUS OF TOROIO 

XbOR •-••2 
XHAX •*•*» 

I 

RB^HLEN 

I 

•■ONIÜlN 

I 

! DIVIDE MITH SINGLE PRECISION DIVISOR 
! (USED OFTEN IN SHAP£ ROUT INES) 

SDIV LDA «0 

STA DVSOR*1 
JT9- DZVIDE 


! CALCULATE SHADE VALUE (B-631 UV 
; MULT1PLYING W BY 26 THEN 
i DIVIDE AESüLT BY RADIUS OP SURFACE 


SCTVAL BIT TCNE*1 

BPL CNTNU | 1F TONE‘<0, THEN 

LDA UAKLIT j HAKE VALUE B OR ABS(TONE> 

ONE NEGATE I DEPENDING ON BALL 11 FLAG 

STA VALUE 

RTS 

NEGATE SEC 

LDA MM 
SBC TONE 
STA TCNE 

CNTNU LOA *CW£ 

STA MLPCND 
LOA «SIA 
STA MLPLER 
JSR MULT 
STA DVDND*I 
LDA PROD 
STA DVDNO 
LDA RADIUS 
STA DVSOR 
JSR SDIV 
LDA OUOT 
STA VALUE 
RTS 






POINT PLOTTIND BV QUADRANIS USING 

THE FOTR-FOLD SYMHETRV OF SIMPLE OBJECTS 


DEPENDING UN STATUS OF MVFLAQ", EXCHANGE 
X AND V COORDINATES TD ROTATE OBJECTS VB DEG 
SINGLE SHAPE ROUTINE CAN THEN BE USED TO 
DF« AM HORIZONTAL OR "VERTtCAL * VERS IONS 
OF ON OBJECT 


I THE FOLONING IS A BASIC SUBROUTINE 
; EQUIVALENT TO EXPLAIN ITS OPERATION 

I ND1E THAI LABELS AUE USED IN PLACE OF 
; LINE NUMBERS 

: PTPLOT IF HVFlAG'0 THEN GOTO ‘NOROT' 

| (SlALK)—XKfcLIXKLL—YKfcLIVHkL~(bIALK > 

j (STACK) “XGMOl XSHD-VSHDl VSHD“ (BTACl. I 

I 'NOROT' GOSUB GCTZ' 

I REM CALCULATE 2»Z FROH X.V AND RADIUS 

; HEMI = l 

j IF XRELXXIPL THEN GOTO RWEMI 

j /MX-2*Z XSHD 

XPLT-XCCNT-XRELtREH LEFT HEMISPHERE 
; ‘CHCUIP IF YRELXXIPU THEN GOTO OMEHl 
| TONE^ZMX+YSMD 

l GOSUB GETVAL iREM NORMAL IZE SHADE VAL 

t VPLT-YCENT-VREL 

S GOSUB PLTSHDtREM PLOT OR UNPlOT 

I REM POINTS MEIGMTED BV SHADE VALUE 

; -OWEMI- IF YRELXXIPD THEN GOTO 'RMEMI 
j TONE—ZWX-VSMD 

! GQSUH 'BETVAL' 

I VPLT-VCENT-VRFL 

! QOSUB PLTSHD- 

i RHEMI' IF HEMI=B THEN RETURN 
I HEMI-B 

• IF XRELXXIPR THEN RETURN 

| ZWX-2+Z+XGHD 

t XPLT*XC£NT*XR£L 

; GOSUD "CHCLUP * 

| RETURN 

PTPLOT BIT HVFLAB 

BPL NUROT 

LDA XREL 

PHA 
PHA 

LDA YREL 
STA XREL 
PLA 

9TA YREL 
LDA XSMD 
PHA 
PHA 

LDA YBHO 
STA X3ND 
PLA 

STA YSMD 
LDA XSHD-l 
PHA 
PHA 

LDA VSMDM 
OTA XBMD.l 
PLA 

STA YSMD*I 
NOROT JSR GETZ 
PTPLT2 LDA B*0I 
STA HEMI 
SEC 

LDA CLIPL I CHECK LEFT HEHlüPHEHt 
CMP XREL 
BCC RHEMI 
SEC 

LDA ROOT 
SBC XSMD 
STA ZMX 
LDA R001*t 
SBC XSHD+1 
STA ZMX*I 
BCC 

LDA XCENT 
SBC XRLL 
5TA XPLT 
LDA XCENT*1 
SBC «mm 
STA XPLT+I 
CHCLUP sec 

LDA CLIPU : C»«CK FOR UP CLIPFING 
CMP VREL 
BCC OHEMI 
CLC 

LDA ZMX 
ADC VSHD 
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ST« TONE 
LDA »J*l 
AOC YSMD»1 
STA IUNCM 

JSR BETVAC 

CLC 

LOA YCCNT 
AOC YREL 
STA VTUT 
JSR PLTSHO 

»CHI SEC 

LOA CLlPD J 
cnr yrel 
DCC RICHI 
SEC 

LOA ZWX 
SBC YSMD 
STA TONE 
LOA 2NX»I 
SBC YSMD»! 
STA TONE•I 
JSR SETVAL 
SEC 

LDA YCENT 
SBC YREL 
BTA VPLT 
JSR PLTSMD 


LOA »dl! 
BEO PL DONK 

occ »cm 


BCC PLDONE 
CLC 
LDA 
AOC 
STA 
LOA 
AOC 
STA 
QX 
LDA 


STA 

LDA 

AOC 

STA 

JMP 

PLDONE BIT 
upl 
LOA 
STA 
PLA 
STA 
LOA 
STA 
PLA 
STA 
LDA 
BTA 
PLA 
STA 


ROOT 

XSMD 

ZUX 

WXJT*1 

XSHD»I 

/UX*1 

XCENT 

IAEL 

XPLT 

XCENT•I 

»raa 

xplt»: 

CMCLUP 
HVFLAG 
NOMSTR 
XSMD»1 
Y»tD*l 

XSMD.l 

XSMD 

YSMD 

XSMD 

XREL 

YREL 


CMC CK FÜR DOWN CL1PP1NG 


CHECK ran KIGMT CLIPP1NB 


« RESTORE COQROS 


; CALCULATE Z FROH LOCAL X,V BV 

1 PVTHAGORCAM (AJN 

OCTZ LDA RADIUS 
STA ARG 
JSR SCOAAC 
STA TNTMP»1 
LDA BOR 
STA TNTMP 
LDA XSHD 
BfA PAG 
J5H SQUARE 
BKC 

LDA TNTMP 
SBC SOR 
STA TNTMP 
LDA TNTMP* 1 
SBC SOR»! 

BTA TNTMP»1 
LDA YSMD 
BTA «RH 
JSR SCUAFE 
SEC 

LDA TNTMP 
38C SOR 
BTA RADCND 
LDA TNTMP»1 
SBC SOR»I 
STA RAOCNO*1 
BMI ZEROOT 
JSR SORT 
ASL BOOT 
kol root•: 

RTS 

zeroot lda eiaa 
STA ROOT 
5TA ROOT.l 
RTS 



SET UP PARAMETERS FÜR TOROIDS 


RT-CRO-RIJ/2 RS-AT-RT RC-nT-RJ 

PARM LOA RO 
BEC 
SRC Kl 
LSR n 
STA RT 
STA RADIUS 
CLC 
ADC RI 
STA RC 
LOA RT 
STA ARO 
JSR bOUAKL 
LDA SOR 
STA RS 
LDA SOR»1 
STA RS*I 
IDA ata 
STA CNTX 
RTS 


DRAM A SHADCD SEMEKE 


BASIC SUBROUTINE EOUI VALENT 


'QPMCnC* FOR CNTX-O TD RADIUV/bOR(21 
XREL*CNTX:XSHD—CNTX 

FOR CNTY-CNIX IO SOR(RAD»RAD-CNIX»CNTX: 
YREL-CWTY« YSHD=CNTV 
MVFLAG=B 
UQSUtl ' PTPLOT' 

REM EXCHANGE X L V TO USE B-FOLD CYM 

MVPLAB—120 

UOSUD PTPLOT 1 
NEXT CNTY 


! «XT CNTX 

| RETURN 

I 

I 

VMERE LDA AAOIU3 
STA «AS 
JSM SCUARF. 

ASL SCH 
ROL SOR»l 
LDA BOR 
STA RADCND 
LDA SOR»! 

STA RADCND*1 
JSR SCAT 
LS« RCOT»I 
ROR ROOT 
LDA ROOT 
STA XMAX 
lda a«ao 
STA CNTX 
STA XSMD» 1 
STA YSMD*I 
LDA RADIUS 
STA ARO 
JSR SCUAFE 
STA TEMP»1 
LDA SUN 
STA TEMP 
LUOPX LOA CNTX 
STA CNTY 
STA PRO 
STA XREL 
STA XSMD 
JSH BBJAFE 
SEC 

LDA TEMP 
BSC SOR 
BTA RADCND 
LDA TEMP»! 

SBC SOR*I 
STA RAOCNDM 
JSR SCRT 
LDA ROOT 
STA MAX 

LOCPV LDA CNTY 
STA YREL 
STA VSMD 
LDA ae 
STA MVFLAU 
JSR PTPLOT 
lda atua 
STA HVFL06 
JSR PTPLOT 
LDA CNTY 
CMT MAX 
BEO DONEV 
INC CNTY 
JT* LOOPY 
»UNI « LDA UNIX 
CW XMAX 
bEQ DÜNE 
INC CNTX 
J»*- LOOPX 
DONE RTS 

I 

: DRAU SHADCD CVLINDERS 

• BASIC BUBROUTINE' EOUIVALENT 

| CYLNDR- XSMD=* 

I FOR YREL-RADIU9 TO B 

5 VSHD-YREL 

: 5 ****»»• 

I NEXT XREL 

| TCXT YREL 

t RETURN 

CYLNDR LOA ae 

STA XSHD 

STA XSMD*I 

STA VSMD+i 

LDA RADIUS 

STA YREL 

CYLOQP LDA IC EN 

BTA XREL 

LOA YREL 

STA YSMD 

CXLOOP JSR PTPLOT 

DEC XREL 

DPL CXLOOP 

DEC YREL 

BPL CYLOOP 

RTS 


DRAM EOGE-VIEW TOROIDS 


I 'BASIC SUBROUTINF 1 EOUIVALENT 

I 

I FDGIOF GOSUB TPARM iREM SGT tP> RADI I 

! FOR CNIX-O TO RT 

I XREL-CNTXtXSHD-CNTX 

t K0=90R (RT»RT-CNTX»CMTXI 

; FOR »TY=8 TO RB*FC 

I YRCL-CNTY 

; YSMD=CRO»CNTY»/(RO»«Cl 

I GOSUB PTPLOT 

I NEXT LNlY 

I NEXT CNTX 

I RETURN 

I 

EDBTOR JSR TPARM 
LDA »»CO 
STA XSHD»1 
STA VSMD*I 
LOOP»« LDA CNTX 
STA XREL 
STA XSHD 
STA ARG 
JSR SOUARE 
SEC 
LDA RS 
SBC SOR 
5TA RAOCNO 
LDA RS»1 
SBC SQR*I 
UIA kaih.hu* I 
JS« SORT 
LDA ROOT 
STA «fl 
CLC 
AOC RC 
STA KAX 
LDA »IM 
ST« CNTY 
I.OQPY« LDA CNTY 
STA YREL 
5TA MLPLHR 
LDA KB 
STA MLPCNO 
JSR MULT 
STA DVDNO'I 
LOA PWOO 
BTA DVDNO 
LOA MAX 
BTA ovson 
J5R 3DIV 


LDA OUOT 
STA VSHD 
JSR PTPLOT 
LDA CNTY 
CMP MAX 
BEQ DONE4 
INC CNTY 
JMP LOOPY4 
DCINE4 LDA CNTX 
CMP RI 
MO DONEMT 
INC CNTX 
JMP LOOPX4 
DOMEHT RTS 
X 

j DRAM A SMADED. TOP-VIEN TOROID 
| BASIC BUBROUT INE 1 EOuIVAlENT 

I Tonoio’ eocuD 'tparm 

s FOR CNTX-B TO R0/SUR(2> 

j REM B-FOLD SYMMETRV USED 

| XREL=CNTX 

I MAX«SORlRO»RO-CNTX«CNTX> 

I IF CNTX-AI TUEN GOTO ‘ORTR 1 

; CNT Y=SQR(RI*RI-CNTY »CNTY J 

| GOTO 'LLPYI* 

j GRTR CNTY-CNIX 

I 'LLPYI ' YREL-CNTY 

I Ka-GOF. (CNTY-CNTY-CNIX.CNTX) 

j XSHD=CNTX-<CNTX»RC)/Rfl 

| YBHD-CNTY-<CNTY»RC>/Rfl 

; HVFLAG-B; GOSUB 'PTPLOT 

| MVFLA6— 1201 GOSUB PTPLOT 1 

I IF CNTY-MAX TUEN GOTO DDNYl 

I CNTY*CNTY*1 

J GOTO 'LLPYI' 

1 DDNYl 1 NEXT CN'X 

j RETURN 

TOROID JSR TPARM 

LOA KO 

STA AFG 

JSR SQUARE 

ASL SOR 

ROL SOR»I 

LDA SUR 

STA RADCND 

LDA SOR*I 

SIA RADCND» l 

JSR SOFT 

LSR ROOT*1 

»50« ROOT 

LDA ROOT 

STA XMAX 

LLPX1 LDA CNTX 

STA XREL 

STA ARG 

J9R SOUARE 

STA XS0R*1 

LDA SOR 

STA XSUR 

LDA RO 

STA ARG 

JSR SOLARE 

SEC 

LDA SOR 
SBC XGOR 
BTA RADCND 
LDA SQR»1 
BBC XSOR-1 
STA RADCND*! 

JSR SORT 
LOA ROOT 
STA MAX 
SEC 
LDA RI 
BBC UNIX 
BCC GRTR 
LDA RI 
STA ARG 
JSR SQUARE 
SEC 

LDA SOR 
SBC XSUK 
STA RADCND 
LDA SOR»! 

SBC XSOR»I 
STA RADCND»! 

JSR SORT 
LDA KUUI 
STA CNTY 
JMP LLPYI 
GRTR LDA CNTX 
STA CNTY 
LLPYI LDA CNTY 
STA YREL 
STA ARG 
JSR SQUARE 
CLC 

LDA SOR 
AOC XQQR 
STA RADCND 
LOA 5QR-1 
adc xsor«: 

STA RADCNDM 

jsr soht 

LDA ROOT 
STA RO 
STA DVBOR 
LDA CNTX 
STA NLPLfcN 
LDA RC 
STA MLPCND 
JSR MULT 
STA DVDND«! 

LDA PFOD 
STA DVDNO 
JSR SDIV 
SEC 

LDA CNTX 
üh: OUOT 
STA XSHD 
LDA «*lM 
SEC OUOT«1 
STA XSH0»1 
LOA CNTY 
STA HLPLER 
LOA RC 
STA MLPCND 
JSR MULT 
STA DVDND«1 
LDA PRQD 
STA DVDND 
LDA F0 
STA OVSOR 
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JSR SO IV 
BEC 

LOA CNTV 
BBC OUOT 
STA VSHO 
LOA MJfl 
STA HVFLAQ 
SBC OlJOTM 
STA VSHO‘1 
JSR PTPLOT 
LOA R«UB 
STA HVfLAG 
JSR PTPLOT 
LOA CVTV 
CUP RA* 

BEO UDNVI 
INC CNTY 
JMP LLPYI 
OONYl LOA CNTX 
CMP *r»x 
DEO DOKTOR 
INC CNT* 
JMP LLPX1 
DUNTOR RTS 


; DRAM "INSIDE VIEN“ TOROIDS 

; 'BASIC SUBROUTlMfc' COUIVALENT 
I 

I SPOOL GOSUD TPARJ1' 

I FOR CKTX=B TO RT 

; XREL-CNTXrXSMD-CNTX 

I HAXbRC-SQR iRS-CNT « *CNT X t 

J FOR CNTY—0 TO MAX 

I YKtL-CNTY 

I VSHO»(RC»CNTY/«AX)-CNTV 

i GOSU8 "PTPLOT * 

| N€*T CNTY 

i NEXI CNTX 

I RETURN 

I 

SPOOL JSR TPARM 
l.LPXV LOA CNTX 
5TA XREL 
STA ARG 
SEC 

LDA «MW 
SBC CNTX 
STA XSHD 
LOA «»0O 
SBC «*BQ 
STA X5»«*l 
JSR SOOORC 
SEC 
LDA RB 
übL LUK 
STA RADCND 
LOA RS»1 
SBC SORtl 
STA RADCND«I 
JSR SQRT 
SEC 
LDA RC 
SBC ROOT 
STA MAX 
lda a«aa 
STA CNTY 
LLPV2 LOA CNTV 
STA YREL 
STA MLPLER 
LDA RC 
BTA MLPCND 
JSR MULT 
BTA DVOND«1 
LDA PROD 
BTA DVDND 
LDA MAX 
STA DVSOR 
J5R 5D1V 
LOA QUOT 
SEC 

SBC CNTV 
STA YSHD 
LDA ouor.i 
sbc a*ao 
STA YSHD*I 
JHR PTPIOT 
LDA CNTY 
CMP MAX 
DEO DDNY2 
INC CNTY 
JHP LLPY2 
D0NY2 LDA CNTX 
Cm RT 
BEO DUNH5P 
INC CNTX 
JMP LLPX2 
DUNHSP RTS 
.END 


Listing 4. Assembler-Quelltext 
zum Zeichnen ausgefüllter 
Flächen, sogenannter Shapes 
(Schluß) 


( INTERFACE - EASY PARAMETER SETtlNÜ FOR SMAPE 
: DRAM ING ROUT INES FROM BASIC. 

I 

; RICHARD L. RVLANDEH 11/23/84 
I 

;•••••••••••••••••••»••••••••••■■•■ 

QRIG1N-SCAC8 
RAM -«0393 
; 

; PARAPHIER LOCATIONS FOR VARIOUS SHAPES 

; 

»CENT -«03&A 
YCENT =*03&F 
«PLOT -«033F 
YPLOT —*0341 
XHIN -*034A 
YMIN =«034C 
XMID -«034D 
VMID -B034F 
XMAX -*0330 
YMAX -«0352 
RADIUS -*0377 
MLEN »*0389 
RI —*03BF 

RO -S03BE 

MVFLAG «S0383 
VALUE -*034A 
PLTFLG —*033C 

DEFLAG -*FB 

t 


I••*•••«»•••••••••••••»••***•*•••*•*••••* 

i 

J FUNCTION LOCATIONS 


GRFON =*C0E2 

; SWITCH TO GRAPHICS MODE 

; <X>, 

Yl* , 

(X2,V2> 

GRFOFF -«CI03 

1 RETURN TO TEXT DISPLAY 

* 



I 


LINE2 

LDA 

80 

CLLAHR—*C12C 

1 CLEAR BITMAP 


•BYTE S2C 

CLRBYT—*C133 

t CLEAR (FILL) BYTE 

FACET2 

LDA 

•*B0 

COLORR-»CI18 

j LOAD COLOR MAP 


STA 

LINFAC 

COLBYT-JCl17 

; COLOR BYTE 


JSR 

GETNUM 

t 



STY 

XMIN 

PLOTR =*Ci 4Il 

; POINT PLOT ROUTINE 


STA 

XMIN*1 

LINER -«C2DB 

; DRAW A LINE 


JSR 

GETNUM 

FACETR -»C4E1 

I DRAW A SHADED FACE! 


STY 

YMIN 

I 



JSR 

GETNUM 

1 


STY 

XMID 

X 



STA 

XH1D+1 

; SHADED SMAPE 

DRAMING ROUT INES 


jsn 

GETNUM 

; 



STY 

YM1D 

SPHERR»*C7C7 

* SPHERE 


BIT 

LINFAC 

CYLNDR=«C8G4 

5 CYL1NDER 


BPL 

LDRAW 

TORUSR-*C90F 

I TOP-VIEW TOROID 


JSR 

GETNUM 

ED0TOR-«C88F 

; EDGE-VIEW TOROID 


STY 

XMAX 

5POCJLR—»CA3B 

X INSIDE-VIEW TOROID 


STA 

XMAX*1 

I 



JSR 

GETNUM 



STY 

YMAX 

| 



JSR 

GETNUM 

J BASIC ROM ROUTIWF.S 


STY 

VALUE 

I 



JMP 

FACETR 

CHKCOM-*A£FD 

t CHECK- FOR COMMA 

LDRAW 

JMP 

LINER 

EVAEXP~«AD9E 

t EVALUATE EXPRESSION 

1 




FLTFIX=*BIAA 


• =RAM 

LINFAC •••*1 


; CONVERT TO FIXED 


J L INF OR FACET FLAG 


I 

; GET PARAMETERS FROH BASIC CALL ING STATEMENT 
I OF THE FORM* 

: SYS(FNCTN).PARAM1.PARAM2.PARAMSAOPTu 
l WHER£ TME TMlRD PARAMETER (FOR EXAMPLEJ 
", MAY BE OPTIONAL (A DEFAULT VALUE XS USED 
! IF THE PARAMETER IS NOT BPECIFIED» 


OETNUM JSR CHKCOM 
JSR EVAEXP 
JSR FLTFIX 
; HIGH BYTE IN *A“ 
RTS 
I 


; LOOK FOR COMMA 
; EVALUAIE EXPRESSION 
; CHANGE TO INTEGER MI TH 
AND LOW BYTE IN “Y“ 


; NO COMMA - USE DEFAULT 


CHECK FOR ADDITIONAL (OPTIONAL» PARAMETERS 

» 

PCHECK LDA «S2C * COMMA 

LOY HW 
STV DEFLAG 
CMP (*7A),Y 
BNE NOMORE 
JMP *0073 

NOMORE LDY H*80 

STY DEFLAG 
RTS 

i SET TWO ADU iT.IONAL FAflöMETCRG fj 

I 

RETTWO JSR PCHECK 
BIT DEFLAG 
BMI DFAULT 
JSR EVAEXP 
JSR FLTFIX 
STV RI 
.1SR GETNUM 
STY RO 

DF AULT RTS 

I 






; SET CENTER COOROINATES 
I 

CENTER JSR GETNUM 
STY XCENT 
STA XCENT*1 
JSR GETNUM 
STV YCENT 
RTS 


: CLEAR THE BITMAP, FILLINB W1TH (OPTIONAL» 
l FILL VALUE SPECIFIED OR WITH (DEFAULT) “0" 
* 

CLEAR2 JSR PCHEO 
BIT DEFLAG 
DMI DEFCLR 
JSR EVAEXP 
JSR FLTFIX 
•BYTE «2C 
DEFCLR LDV BO 

BTY CLRBYT 
JMP CLEARR 


I 


: FILL CDLOR MAP WITH (OPTIONAL» COLOR BYTE 
I SPECIFIED OR WITH (DEFAULT) "*01" 

; (BLACK DOTS ON WHITE BACKGROUND) 

C0L0R2 JSR PCHECK 
BIT DEFLAG 
BMI DEFCOL 
JSR EVAEXP 
JSR FLTFIX 
.BYTE *2C 
DEFCOL LDV ««01 

STY COLBYT 
JMP COLORR 

i 

; PLOT OR UNPLOT POINTS 
I 

PLOT2 LDA «0 

.BYTE *2C 
UNPLT2 LDA H*80 

3TA PLTFLG 
JSR GETNUM 
STY XPLOT 
51A XPLOT*1 
JSR GETNUM 
STY YPLOT 
JMP PLOTR 

; 


I 


DRAM LINES BETVIEEN (XI,Yl) AND (X2.Y2) 
OR SHADED FACETS BETWEEN THREE POINTS 








DRAU A SPF*=RE CENTERED AT (XCENT.YCENT» 
DEFAULT RADIUS IS CAST VALUE U3CD 

SPHER2 JSR CENTER 
JSR PCHECK 
BIT DEFLAG 
BMI SKIP 1 
JSR EVAEXP 
JSR FLTFIX 
STY RADIUS 
SKI Kl JMP SPIIERR 






t DRAW A TOP-VIEW TOROIO AI (XCtNT .YCENT» 

: DEFAUL1 INNER AND GUTER RADIX ARE LAST USED 
I 

TORUSi.’ JSR CENTER 
JSR GEI»WO 
JMP TORUSR 


DRAW CVLINDERS WITH AXES HOR1ZONIAL OR 
VERTICAL. DEFAULT RADIUS AND “HALF-LENGTH' 
ARE LAST VALUES USED. 

CVL2 LDA »«80 
.BYTE *2C 

CYL2 LDA HM 

STA HVFLAG 
JSR CENTER 
JSR PCHECK 
BIT DEFLAG 
BMI SKIP2 
JSR EVAEXP 
JSR FLTFIX 
STY RADIUS 
JSR GETNUM 
STY FC.EN 

> IP2 JMP CYLNDR 


DRAW EDGE-VIEW TOROIDS WITH AXFS HORIZONTAL 
OR VERTICAL 

INNNER AND O'JTER RADII ARE OPTIONAL 

VT0R2 LDA *«83 
.BYTE *2C 
HT0R2 LDA «0 

STA HVFLA6 
JSR CENTER 
JSR GETTWO 
JMP EDGTOR 

* 

I DRAW INSIDE-VIEW TOROIDS. "SPOOLS”, 

! WITH AXES HORIZONTAL OR VERTICAL 
I INNER AND OUTER RADI I ARE OPTIONAL 

VSPL2 LDA H*B0 
.BYTE »2C 
HSPL2 LDA «0 

SIA HVFLAG 
JSR CENTER 
JSR OEITWO 
JMP SPOOLR 

.END 

Listing 5. Assembler-Quelltext 
des »Basic-Interfaces« zum 
einfachen Ansprechen aller 
Assembler-Routinen per 
SYS-Befehl 


I KICHCRO L. RVLAMOCR 1/12/85 
I 

UKIGIN-JCF5V j 314SU1. (FDLLOWINB DOS 3-I> 


Kb ■ «FB 
ZB - *FD 
MAX - »er 
TOP = *AC 
TOPDtS = «AD 
FLAG - *ML 
NXTFLG = *61 


251. POINTER TO KEY ARRAY 
253. POINIER TQ DATA ARRAY 
t«0. POKE WITH MAX ARRAY INDEX 


Listing 6. Assembler-Quelltext 
der schnellen Bubble- 
Sort-Routine 


103 

ins.n.-l 

























Grafik 


CRRNT = 

RCTtAT - *64 

( 

•-OH1UIN 
I 

IN1I LDV 49TF | INITIAL1ZE KEY ARRAV 
INLOQf* INY 
TYA 

STA «KBI.V 
CMP MAX 
UNt IMJJOP 

* 

SOT.T STA T0PDI5 ; " A MOLDS MAX ' 

LOOP» LDA TOPDIS 
STA TQP 
LOX *B 
5TX NXTFLG 
ST X FLAB 

LOOP? 9TX DTPTAT 

: 6ET BOTH BYTES OF INTEGER TOINTED TO 8Y 
t -KEY* ELEMENT. RETURN Hl TU MSB ON STACK 
; AND L58 IN TI* ACCUTIULATOR 
I 

SETINT TXA 
TAV 

LDA 1K6I.T 
ASL A 
BCC LOAD 
DEC NXTFLO 
INC Z»«l 
LOAD TAV 

LOA <Z6»,V 

PMA 

INY 

LOA <IH>,T 
BIT NXTFL6 
BPt NDOFC 

im: nxtflg 

DEC ZB«1 

NUDtC CP» REPEAT 
BNE ORDER 
STA CRRNT 
PLA 

STA CRRNT-1 
INI 

BT« BET INT 
I 

: COMPARE INTEGERS OBTAINED 'MHOUGH IEY ARRAY 
j IF ‘CURRENT* - -NEXT TUEN SNA#* KEY 
: ELEMENTS, ELSE CUNMM» 

t 

OiDFH CM’ CRRNT 
PlA 

SBC CRRNT•I 
bVC TEST 
EOk SCttU 

IfaBI W1 NOSWAP 
SWAP TIA 
TAY 

STX ICF DIS 
LDA IKBJ.V 
PMB 
DtY 

LDA (RS) ,V 
INY 

STA «KB»,V 

PLA 

DtY 

STA <>.»> , Y 
INC FLAB 
NDSMAP CPI TOP 

bNC LOOPS 
LDA FLAG 
BNE LOOP! 

l UteACK THE BYTE ELEMENTS OF THE 'KEY ARRAV 
l INTO BASIC S NORMAL 7-PVTF INTFGFR FORMAT 
* 

UNPACK LDX MAX 
INI 

PKLOUP DEX 
TXA 
TAV 

LDA <KB> ,t 

P*»A 

TXA 

ASL A I HOWE TO 2*1-1 
ORA »1 
BCC STORE 
INC NXTFLG 

STORE IAV 
F1_A 

STA <KB»,V 
LOA •» 

DtY 

STA <KS>,V 
LDA NXTFLG 
MO Or 
DEC NX II- LG 
DEC KB-I 
0» TXA 

BNE PtO-OOP 
DUNE RTS 
.END 


Listing 6. Assembler-Quelltext 
der schnellen Bubble-Sort- 
Routine (Schluß) 


I NR1IE‘ 8ICMARD L. RYLANQLH 
; 12/SB/»* 

I KCVIDCD 1/19/IR, OIOGlf. HOUED TO «CFFT ISS271. I 
I 

! PLI rt»T OlANACIERS DN GRAPlllC 5CRECN 
I ■UNDER DAGIC ROM» IN VARIOU3 RTYlFB 
t 

•-FOES ; pm cnor aftfr dos s. i 
MUTE LIM «Ul , SU 11 CH OUT BASIC ROM 
Af« B»FE 
OTA «Bl 
LOY «7 

LOOP LDA >*T 0>,V I READ CMAAACTER BYTE 
AMD t »FBI, 1 • MODIFV W/SCREEN BYTE 
5TA <*FB»,V i STOA« IR SCREEN 

s PtJKE NEW LOGICAL CFERATCA TQ REFLACE 
AND’ ISS231.» FÜR DIFFERENT 8TVLES 
1 UNä- 1 /. IUI (MJP> *S6. AND»* 9. EOR»Bl. 

DtY 

ML LOOP 

LOA CB1 I KEGTORC BARIC ROM 
□RA Bl 
STA *o: 

RT9 

-END 


Listing 7. Assembler-Quelltext 
der Routine zum Beschreiben 
des HiRes-Bildschirmes unterhalb 
des Basic-ROMs 
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fB 

65 

fb 

85 

fb 

ad 

2a 

C17B 
c 180 

; s -mfct§ 

a9 

03 

a0 

29 

5b 

97 

clBB 

t 

07 

49 

07 

aa 

a9 

01 

ca 

30 

79 

c 190 

s 

03 

0a 

d0 

f a 

a0 

00 

2c 
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c5 

38 

ad 

86 

9b 











6d 

03 

a9 

00 

94 











03 

BS 

ad 

85 

87 

AC 

03 

20 

37 

b0 

Programm 

: sort/write 



cf59 cffd 

a5 

ae 

B5 

fd 

84 











fb 

20 

ea 

C5 

d3 

cf 59 s 

a 0 

ff 

c8 

98 

91 

f b 

c5 

Bc 

67 

»5 fd 0O 

bB 

cf 61 s 

d0 

f 8 

85 

ad 

a5 

ad 

83 

ac 

fc 

28 

c6 

e5 

a9 

fe 

80 

77 

cf69 : 

a 2 

00 

86 

61 

86 

ae 

B6 

64 

9a 

fc 

cf 71 : 

Qa 

aB 

bl 

fb 

0a 

90 

04 

c6 

fe 

28 

c6 

ad 

87 

aa 

cf 79 s 

61 

e6 

fe 

a8 

bl 

fd 

48 

cG 

e 0 

♦ 0 

06 

ee 

87 

96 

cf Bl : 

bl 

fd 

24 

61 

10 

04 

e6 

61 

e6 

ad 

86 

03 

cd 

e8 

cfB9 3 

c6 

fe 

i?4 

64 

J0 

08 

85 

62 

bc 

ee 

86 

03 

4c 

08 

cf 91 : 

68 

85 

63 

eB 

d0 

da 

c5 

62 

71 

9a 

c7 

ad 

86 

la 

cf99 : 

68 

e5 

63 

SB 

02 

49 

B0 

10 

63 

85 

ac 

38 

a9 

77 

cf al s 

13 

Ba 

aB 

86 

ad 

bl 

fb 

40 

dd 

Bd 

6d 

03 

a9 

e4 

cfa9 : 

88 

bl 

fb 

cB 

91 

fb 

68 

88 

cd 

6a 

03 

20 

04 

7e 

cf bl : 

91 

fb 

e6 

ae 

i-4 

ac 

d0 

b6 

34 

03 

e5 

ae 

85 

16 

cfb9 : 

a5 

ae 

d0 

aB 

a6 

Bc 

eQ 

ca 

06 

e5 

af 

85 

ad 

73 

cf c 1 s 

8a 

a8 

bl 

fb 

48 

8a 

0a 

09 

9e 

ad 

Qd 

03 

ed 

21 

cfc9 X 

01 

90 

04 

■6 

61 

e6 

fc 

aB 

83 

03 

a9 

00 

8d 

3b 

cf dl : 

68 

91 

fb 

a9 

00 

88 

91 

fb 

b8 

03 

Bd 

70 

03 

41 

cfd9 s 

a5 

61 

f0 

04 

c6 

61 

c6 

fc 

78 

03 

85 

ac 

20 

48 

efei : 

8a 

d0 

de 

60 

ab 

01 

29 

f e 

lb 

a5 

ae 

85 

fd 

lc 

cfe9 : 

85 

01 

a0 

07 

bl 

fd 

31 

fb 

c0 

fb 

20 

ea 

C5 

eb 

Cffl S 

91 

fb 

88 

10 

f 7 

•s 

01 

09 

67 

87 

03 

8d 

71 

bl 

cff9 3 

01 

85 

01 

60 

00 

ff 

00 

00 

09 

00 

8d 

72 

03 
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03 
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88 
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87 

cd 

03 

Bc 

4c 

03 

7a 

f0 

41 
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9e 
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10 

REM 

SHAPES DEMO 


< 146> 

20 

: 




<252> 

30 

REH RICHARD L. RYLANDER 

11/23/84 



(REVISED 

1/20/85 TO ADD LABELING) 

<130> 

40 

: 




<016> 

50 

BR=4937B 

: REM 

GRAPHIK MODUS 


<165> 

60 

TX=4941X 

: REM 

TEXT MODUS 


<103> 

70 

: 




<046> 

80 

LB=B93 

s RFM 

LINKE GRENZE 


<252> 

90 

RB=894 

: REM 

RECHTE GRENZE 


<206» 

100 

UB=895 

s REM 

OBERE GRENZE 


<090> 

110 

DB=B96 

sREM 

UNTERE GRENZE 


<046> 

120 

: 




<096> 

130 

REM FLAGS FUER VERSCHIEDENE 

GRAFIKMQ 



DI 




<107> 

140 

: 




< 116> 

150 

SH=B38 

: REM 

SCHATTIERUNG s 

0=RANDOM 



, 1=HALBT0N 



<252> 

160 

SC=839 

8 REM 

SKALIERUNG:0=NORMAL (1 



:1)■ 1=SKAL. (4: 

3) FUER DARSTELLUNG 

<024> 


170 

LT=89B 

8 REM 

LICHTEINFALLs 0=NORMAL 



, I=V0N HINTEN BELEUCHTET 

<033> 

180 

: 



<156> 

190 

BO=53280 

8 REM 

RAHMENFARBE 

<186> 

200 

: 



<176> 

210 

REM FUNKTIONSADRESSEN 

<104> 

220 

8 



<196> 

230 

CL=51979 

N 

SREM 

BITMAP BEREICH LOESCHE 

<221 > 

240 

CO=52001 

8 REM 

COLORBEREICH FUELLEN 

<013> 

250 

8 



<226> 

260 

SP=52119 

8 REM 

SPHERE 

<160> 

270 

TR=52141 

sREM 

RING VON OBEN 

<108> 

280 

VC=52150 

CHSE) 

sREM 

ZYLINDER (VERTIKALE A 

<011> 

290 

HC=52153 

sREM 

ZYLINDER (HORIZONTALE 



ACHSE) 



<167> 







Listing 10. Demo-Programm »Shapes« 











Grafik 


300 

VT=52186 

: REM 

RINGSCHNITT 

(VERTIKAL 


800 

RW=2:CM=26:Ai="NACHGEZEICHNET":GOSUB 1 



E ACHSE) 





<216> 


900 

<060> 

310 

HT=521B9 

: REM 

RINGSCHNITT 

(AXIS HÖR 


810 

REM ZEICHNE FLASCHE 

<1B7> 


IZONTALE 

ACHSE) 




< 199> 

820 

POKE UB,0:POKE DB,255:POKE LB,255:POKE 


320 

VS=52203 

: REM 

SPULE 

(VERTIKALE ACHS 



RB,255 

<087> 


E) 





<241 > 

830 

SYS(VT),150,10,30,50 

<164> 

330 

HS=52206 

: REM 

SPULE 

(HORIZONTALE AC 


840 

POKE UB,255:SYS(VC),150,70,50,60 

< 113> 


HSE) 





<064> 

B50 

POKE DB,0:SYS(VT),150,130,6,50 

<053 > 

340 






<062> 

860 

POKE DB,55:POKE UB,0:SYS(VS),150,204,1 



350 

360 

370 

380 

390 

400 

410 

414 

420 

430 

432 

434 

440 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

540 

550 

560 

570 

580 

582 

584 

586 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

740 

750 

760 

770 

780 

790 

792 

794 

796 

798 


REM EINZELNE SHARES ZEICHNEN 

POKE SH,1 :REM HALBTONSCHATTIERUNG 
PQKE SC,1 -.REM SKALIERUNG 
POKE LT,0 : REM NORMALBELEUCHTUNG 
SYS(CL> :REM BILDSCHIRM LOESCHEN 
SYS<CO),17*11+1 :REM FARBKOMBINATION 

- DUNKELGRAU (11) WEISSE PUNKTE (1) 

REM AUF DEN MEISTEN FARBMONITOREN 
POKE BO,1 :REM WEISSER RAHMEN 
SYS(GR) :REM GRAFIK EINSCHALTEN 
RW=12:CM=14:MD=1:A*="SHAPES DEMO-:GOSU 
B 1900:REM TITEL 

Xl=l10:Y1=120:X2=210:Y2=120:BC=1:DC=7: 
GOSUB 1700:REM COLOR TITEL 
POKE LB,38:POKE RB,38:POKE UB,38:POKE 
DB,38 :REM SHAPE FENSTER 

SYS(SP),40,199,38 

RW=9:CM=2:MD=1:A*="KUGEL":GOSUB 1900 

SYS(HC),120,199,38,38 

CM=11:A$="H—ZYLND.":GOSUB 1900 

SYS (VC) ,200,199 -.REM VOREINGESTELLTE P 

ARAMETER WERDEN BENUTZT 

CM=21:A*="V-ZYLIND.":GOSUB 1900 

SYS(TR),280,199,15,38 

CM=32:A*="(2SPACEJRING":GOSUB 1900 

SYS(VT),40,64 

RW=23:CM=1:A*="H-RING": GOSUB 1900 
SYS(HT),120,64 

CM=11;AS="V-RING":GOSUB 1900 
SYS(HS),200,64,5,100 
CM=22:AS="H-SPULE":GOSUB 1900 
SYS(VS),280,64 

CM=32:AS="V—SPULE":GOSUB 1900 
POKE 198,0:WAIT 198,1:P0KE 198,0 
REM AUF TASTE WARTEN 

REM ZWEI "POKALE", EINER MIT HALBTON- 
, DER ANDERE MIT "RANDOM“—SCHATTIERUNG 

SYS(CL>:SYS(CO),16*11+1 
RW=14:CM=14:AS="VERGLEICH":GOSUB 1900: 
RW=15:CM=16:A*="ZWEIER":GOSUB 1900 
RW=16:CM=12:A*="SCHATTIERUNGEN":GOSUB 

1900:RW=1B:CM=14:A*="< HALBTON" 

GOSUB 1900:RW=20:CM=15:A*="RANDOM —>" 
:GOSUB 1900 

PQKE LB,255: POKE RB,255: POKE UB,49-.P0K 
E DB,255: REM AN DEN OBEREN RAND 
SYS(SP),80,190,80 

POKE UB,51:POKE DB,51: REM WEITERN SPR 

ITE—TEIL ANHAENGEN 

SYS(VS),80,69,10,130 

POKE DB,9:POKE UB,8 

SYS(VT),B0,9,25,45 

POKE SH,0 :REM AUF RANDOM SCHATTIERUN 

G UMSCHALTEN 

POKE LB,253:POKE RB,255:POKE UB,49:PQK 
E DB,255 

SYS(SP),240,190,80 

POKE UB,51: POKE DB,51 

SYS(VS),240,69,10,130 

POKE DB,9:POKE UB,B 

SYS(VT),240,9,25,45 

POKE 198,0:WAIT 19B,l:POKE 198,0 

REM ZEICHNE "WEIN" SZENE 
POKE LT,1 :REM HINTERGRUNGBELEUCHTUNG 
POKE SH,1 :REM HALBTONSCHATTIERUNG FUE 
R FLASCHENETIKETT 

SYS(CO):SYS(CL>,255: REM BITMAP FUELLE 
N 

POKE BO,0 : REM SCHWARZER HINTERGRUND 
RW=0:CM=0:MD=2:A*="ZEICHENEN MIT":GOSU 
B 1900: RW= 1: CM=0: AS='• RUECKBELEUCHTUNG ” 
GOSUB 1900:RW=2:CM=0:A*="GEGEN GESETZT 
EN":GOSUB 1900 

RW=3:CM=0:A*="HINTERGRUND":GOSUB 1900 
RW=1:CM=26:A*="FARBEN WERDEN":GOSUB 19 
00 


< 124 > 
<0B2> 
<066> 

< 121 > 
<217> 
<077> 

<245> 

<150> 

<041> 

<023> 

<207> 

<190> 

<107> 

< 129> 

< 102 > 
<152> 
<250> 

<229> 

<117> 

<0B4> 

< 122 > 

<046> 

<205> 

< 190> 

< 155> 
<025> 
< 000 > 

< 162> 
< 011 > 




If 


<018> 

< 170> 
<03B> 
<084> 

<228> 

<162> 

<217> 

<2297 

< 119> 

<217> 

< 170> 
<060> 

< 168> 

<22B> 

<013> 
<171 > 
<130> 
< 112 > 
<130> 
<053> 
<059> 
<208> 
< 144> 
<070> 

<239> 

<021 > 
<066> 

<050> 

<034> 

<169> 

< 210 > 


5,181 

870 POKE UB,255:SYS(VC),150,221,16,17 
880 : 

890 REM ZEICHENE WEINGLAS 
900 POKE UB,20:SYS(SP),80,120,60 
910 POKE UB,35:POKE DB,34:SYS(VS),80,34,10 
, 110 
920 : 

930 REM ZEICHENT EIN PAAR TRAUBEN 
940 SYS(SP),8,8,8: 

950 SYS(SP),20,8:SYS(SP),40,8:SYS(SP),12,2 
0:SYS(SP),30,20:SYS(SP),25,16 
960 : 

970 REM ZEICHNET APFEL BESTEHEND AUS 2 RIN 
GEN UND EINEM KUGELFRAGMENT 
9B0 POKE UB,255:POKE DB,255:POKE LB,255:P0 
KE RB,59 

990 SYS(VT),260,29,0,50:SYS(VT),260,79 
1000 POKE UB,43:POKE DB,43:SYS(SP),260,54, 
60 

1010 REM APFELSTIEL ZEICHNEN 
1020 POKE RB,0:POKE DB,0:SYS(TR),272,104,1 
0,15 

1030 REM BLATT ZEICHNEN 

1040 POKE DB,255:POKE RB,0:SYS(SP),256,119 
,15 

1050 REM "RANDOM"-SCHATTIERTES ETTIKETT H 
INZUFUEGEN ! 

1060 POKE UB,255:POKE RB,255;POKE LB,6 
.1070 POKE SH,0:SYS(VC),150,72,50,48 
1080 : 

1090 
1100 
1110 


1120 

1130 

1140 

1150 

1160 

1170 

1190 

1200 


REM BILD NACHCOLORIEREN 
SYS(CO),12 

X 1=200: Y1 = 1: X2=315: Y2= 100: DC=0: BC=2: G 
OSUB 1700 

X1=240:Y1=110:X2=255:Y2=150:BC=5:GOSU 
B 1700 

X1=260:Y1=110:X2=270:Y2=135:BC=9:GOSU 
B 1700 

X1=1:Y1=1:X2=48:Y2=30:BC=4:GOSUB 1700 
X1=140:Y1=205:X2=180:Y2=235:BC=7:GOSU 
B 1700 

X1=145:Y1=25:X2=195:Y2=115:BC=6:GOSUB 
1700 

POKE 198,0:WAIT 198,1:P0KE 198,0 


<063> 

< 164> 
<094> 
< 127 > 
<235> 

<183> 

< 134> 
<156> 

< 167> 

<139> 

<174> 

< 133> 

< 012 > 

<217> 

<014> 

<236> 

< 173> 
<113) 

< 165> 

< 191 > 

< 010 > 

< 225> 
<040> 
<148> 
<033> 

<145> 

<229> 

<055> 

<007> 

<228 > 

<234> 
<001 > 

< 150> 

< 110 > 


REM "KAFFEE UND PLAETZCHEN" 

1210 POKE SH,0 :REM RANDOM-SCHATTIERUNG FU 

ER PLAETZCHEN <230> 

1220 SYS(CO),16*11+1:SYS(CL):POKE BO,l <084> 

1230 POKE LB,255:POKE RB,255:P0KE UB,255:P 

OKE DB,255 :REM KEIN SHAPE—FENSTER <040> 
1240 SYS(VT),60,20,20,60 <069> 

1250 POKE RB,29:SYS(VT),99,60:POKE RB,255 <198> 

1260 SYS(TR),188,180 <166> 

1270 REM HALBTONSCHATTIERTE KAFFEETASSE HI 

NZUFUEGEN. <239> 

1280 POKE SH,1:POKE UB,0:SYS(VT),188,20:PO 

KE UB,255 <251> 

1290 POKE DB,0:SYS(TR),278,110,20,40 <210> 

1300 POKE DB,255:POKE UB,0:POKE LB,0 <140> 

1310 SYS(TR),248,90,50,70:POKE LB,255:SYS( 

SP),248,110,10:POKE UB,255 <160> 

1320 SYS(VC),308,100,10,10 <246> 

1330 SYS(VC),1BB,77,60,57 <154> 

1340 POKE DB,0:SYS(VT),188,134,40,60 <050> 

1360 SYS(CO),1+16*9 :REM 1=WEISSER HINTERG 

RUND, 9=BRAUNE PUNKTE <067> 

X1=130:Yl=l:X2=319:Y2=136:BC=1:DC=5:G 
OSUB 1700 <009> 

X1=250:Y1=144:X2=319:Y2=144:GOSUB 170 
0 <161> 

1390 POKE 198,0:WAIT 198,l:POKE 198,0 <223> 

1410 : <116> 

1420 REM ZEICHNE "VERBUNDENE" RINGE DURCH 

UEBERLAPPUNG DER FENSTER <138> 

1430 POKE LT,0 :REM BLAUE PUNKTE AUF WEISS 

, KEINE HINTERGRUNDBELEUTUNG <041> 

1440 SYS(CL):SYS(CO),1+16*6: REM 1=WEISSER 

Listing 10. Demo-Programm »Shapes« (Fortsetzung) 


1370 


1380 


106 







Grafik 


INTERGRUND, 6=BLAUE PUNKTE 
1450 POKE UB,255:POKE DB,255:P0KE LB,255:P 
□KE RB,255: REM KEINE FENSTER 
1460 POKE SH,0 : REM ZUFAELLIGE SCHATTIERU 
NG 

1470 SYS(TR),244,84,48,70 
1480 SYS(TR),160,84:SYS(TR),76,B4 
1490 SYS(TR),118,156:SYS(TR),202,156 
1500 REM UEBERLAPPENDE ZONEN HINZUFUEGEN 
1510 POKE RB,0:POKE DB,0:SYS(TR),160,84:PO 
KE RB,255:POKE LB,0 

1520 SYS(TR),76,84:P0KE DB,255:P0KE UB,0sS 
YS(TR),118,156 

1530 POKE LB,255:POKE RB,0:SYS(TR),202,156 
:POKE LB,27 

1540 POKE DB,0:POKE UB,255:SYS(TR),160,84 
1550 POKE DB,0:POKE UB,255:SYS(TR),160,84 
1560 POKE LB,255:POKE UB,27:SYS(TR),244,84 
1570 POKE LB,0:POKE RB,27:POKE UB,255:SYS( 
TR),244,34 
1580 POKE 198,0 

1590 GET A*:IF A*= "" THEN 1590 
1600 SYS(TX):POKE BO,14:REM RUECKKEHR ZUM 
TEXTMODUS 
1610 END 
1620 : 

1630 REM UNTERPROGRAMM ZU NACHCOLORIEREN V 
ERSCHIEDENER ZONEN 

1640 REM ACHTUNG: ES KANN JEWEILS NUR EINE 
RECHTECKIGE FLAECHE 

1650 REM VON 8X8 PUNKTEN EINGEFAERBT WERDE 
N ! • 

1660 REM (XI,Y1)=UNTERER LINKER PUNKT, (X2 
,Y2)=OBERER RECHTER PUNKT 
1690 REM DIE Y—KOORDINATEN MUESSEN "UNSKAL 
LIERT" SEIN. FALLS SCALE-FLAG GESETZT 

1700 IF PEEK(SC)THEN Yl=(Yl+1>»213/256:Y2= 
(Y2+1)*213/256 

1710 REM UEBERGABEVARIABLE IST CC. 

1720 REM CC=16*DC + BC CDC=PUNKT FARBE, BC 
= HINTERGRUNDFARBE 3 
1730 CC=16*DC+BC 

1740 FOR IX=INT(Xl/8) TO lNT(X2/8> 

1750 FOR IY=INT(Y1/B) TO INT(Y2/8) 

1760 POKE 34752+IX—40*IY,CC 
1770 NEXT:NEXT:RETURN 
1780 : 

1790 REM "TEXT"-UNTERROUTINE ERM0E6LICHT E 
INFUEGEN VON TEXT IN DIE BILDER. 

1800 REM "RW" UND “CM" SIND DIE ZEILEN(0-2 
4) UND SPALTEN(0-39) KOORDINATEN DES 
1810 REM ERSTEN BUCHSTABEN DES ZU DRUCKEND 
EN TEXTSTRINGS. 

1820 REM UEBERGABEVARIABLE FUER TEXT IST A 
* 

1830 REM "MD" ZEIGT DEN DRUCKMODUS AN: 

1840 REM 1 - NORMAL ("SCHWARZE" BUCHSTABE 
N AUF "WEISSEM" HINTERGRUND) 

1850 REM 2 - INVERSE ("WEISSE" BUCHSTABEN 
AUF "SCHWARZEM" HINTERGRUND) 

1860 REM 3 - BUCHSTABEN WERDEN MIT LOGISC 
HEM ODER MIT HINTERGRUND VERKNUEPFT. 
1870 REM 4 - BUCHSTABEN WERDEN MIT LOGISC 
HEM UND MIT HINTERGRUND VERKNUEPFT. 
1880 REM 5 - BUCHSTABEN WERDEN MIT LOGISC 
HEM EXOR MIT HINTERGRUND VERKNUEPFT. 
1890 : 

1900 SB=40952:TB=54272:IF(MD AND 1)THEN TB 
=53248:REM BASISADRESSEN 
1910 OS=320*RW+8*CM:REM ADRESSE DES ZEICH 
ENGENERATORS 

1920 POKE 56334,PEEK(56334)AND 254:REM DIS 
ABLE IRQ TIMER 

1930 POKE 1,PEEK(1)AND 251:REM CHARACTER R 
OM EINSCHALTEN 

1940 L=LEN(A*>:FOR N=1 TO L:N8=N*8+0S+SB 
1950 X=ASC(MID*(A*,N,1)):IF X>63 THEN X=X- 
64 

1960 TC=TB+8*X 

1970 ON MD GOTO 1980,1980,1990,2000,2010 
1980 POKE 53231,36:GOTO 2020 
1990 POKE 53231,17:GOTO 2020 
2000 POKE 53231,49:GOTO 2020 
2010 POKE 53231,81 

2020 POKE 252,NB/256:POKE 251,N8-256*INT(N 
8/256) 

2030 POKE 254,TC/256:POKE 253,TC-256»INT(T 
C/256) 


<255 > 

<058> 

<096> 

<08B> 

< 109> 

< 163> 
<129> 

< 127 > 

< 198> 

<081 > 
<152> 
<162> 

< 171 > 

<180> 

< 220 > 

< 184> 

<239> 
<088 > 
<072> 

<233> 

<232> 

<088> 

<235> 


<223> 

< 16B> 
<236> 

<037> 
<227> 
<033 V 
<061 > 
<092> 
<227 > 
<232> 

<076> 

<040> 

<249> 

<073> 

< 133> 

<206> 

< 103> 

< 191 > 

<070> 

<111> 

<088> 

<044> 

< 111 > 

<136> 

<066> 

<068> 

< 107> 
<173> 
< 120 > 
<02B> 
<038> 
<062> 
<044> 

< 137> 
<136> 


2040 SYS(53221):NEXT 

2050 POKE 1,PEEK(1)OR 4:POKE 56334,PEEK(56 
334)OR 1:REM NORMAL SCHALTEN 
2060 RETURN 

6 64'er 

Listing 10. Demo-Programm »Shapes« (Schluß) 


10 REM "STELLATION" 

20 REM BY RICHARD L. RYLANDER 12/5/84 

30 : 

40 GR=49378 :REM GRAPHIK MODUS 

50 TX=49411 :REM TEXT MODUS 

60 BO=532B0 :REM RAHMENFARBE 

70 : 

80 REM STYLE PARAMETERS 

90 POKE 839,1 :REM SKALIERUNG (3:4) 

100 POKE 871,0 :REM FACEIVENRAENDER (0=NAC 
HZEICHNEN, l=LOESCHEN) 

110 SH=838 :REM SCHATTIERUNG (0=RANDOM 

, l=HALBTON) 

120 EG=B60 :REM RANDFLAG (0=NORMAL, 1= 

LINIEN AM RAND HINZUFUEGEN) 


130 

140 

150 

160 

170 

180 

190 

200 


REM FUNKTIONS ADRESSEN 

CL=51979 :REM BITMAP LOESCHEN 

CO=52001 :REM COLOR MAP FUELLEN 

FC=52052 :REM SCHATTIERTE FACETTEN Z 

EICHNEN 

KS=53081 :REM SORTIERROUTINE 

XC=160:YC=120 :REM ZENTRIERUNGSKOORDI 

NATEN 


210 : 

220 PRINT"<CLR>»*****»»»**********»*»»**** 


************" 


230 PRINT"* KLEINER STERNFOERMIGER DODEKAH 
EDRON *" 

240 PRINT"******************************** 


*******" 


250 PRINT"C2D0WN,SPACE1SCHATTIERUNG:" 

260 INT" R=RANDQM, H=HALBTON" 

270 INPUT"CDOWN,SPACE5IHRE WAHL<5SPACE>H<3 
LEFT >";AT 

280 POKE SH,0:IF A*=“H" THEN POKE SH,1 
290 PRINT"C2D0WN,SPACEJRAND—STIL :" 

300 PRINT"£DOWN,SPACE>N - NORMAL":PRINT"<D 
OWN,SPACE>E - ECKENBETONUNG" 

310 PRINT"{DOWN,SPACEJW - DRAHTGITTER" 

320 INPUT"{DOWN,SPACEJIHRE WAHL£5SPACE>N{3 
LEFT>";A* 

330 POKE EG,0:WI=0:IF A*="N" THEN 360 
340 POKE EG, 1:1F AJ="W" THEN WI=-1 
350 : 

360 PRINT"{DOWN,SPACEJLESE SCHEITEL DATEN" 
370 VN=32: DIM P7.(VN-1,2) 

380 FOR N=0 TO VN— 1: READ P7. (N,0) ,P7. (N , 1) ,P 
•/.(N,2> :NEXT 
390 : 

400 PRINT"{DOWN,SPACE>GEBEN SIE X, Y, UND 
Z WINKEL EIN" 

410 PRINT"{7SPACEJ(WINKEL IN GRAD)" 

420 INPUT X,Y,Z 

430 J=3.14159265/180:X=X*J:Y=Y*J: Z=Z*J 
440 X0=COS(Y)*COS(Z)—SIN(X)*SIN(Y)»SIN(Z): 

Xl=COS(Y)*SIN(Z)+SIN(X)»SIN(Y)»COS(Z) 
450 X2=—COS(X>*SIN(Y):Y0=—COS(X)*SIN(Z):Y1 
=COS(X)*COS(A):Y2=SIN(X) 

460 Z0=SIN(Y)»COS(Z)+SIN(X)*COS(Y)*S1N(Z) 
470 Z1=SIN(Y> *SIN(Z)—SIN(X)*COS(Y)*COS(Z): 
Z2=COS(X)*COS(Y) 

480 PRINT"{DOWN,SPACE i ROTATIONSBERECHNUNG" 

490 FOR N=0 TO VN-1 

500 X=P7. (N,0): Y=P7. (N, 1): Z=P7. (N,2) 

510 P7. (N,0) =X0*X+X 1*Y+X2*Z : P7. (N, l) =Y0*X+Y1 
*Y+Y2*Z: P7. (N, 2) =Z0*X+Z 1 *Y+Z2*Z: NEXT 
520 : 

530 FA=60: REM ANZAHL DER FACETTEN 
540 DIM F7.(FA/2,2) ,SH(FA/2) ,Z7.(FA/2> ,K7.(FA 
/2) 

550 PRINT" LESE VERBINDUNGSDATEN{14SPACE>" 
560 VF=—1: REM VF = ANZAHL DER SICHTBAREN 
FACETTEN 

570 FOR N=1 TO FA 
580 VF=VF+1 

590 FOR 1=0 TO 2 : READ F7. (VF, I) : NEXT 


Listing 11. Demo-Programm »Stellation« 



< 158> 

< 136> 
<086> 


<061 > 

< 185> 
<006> 
<155> 
<093> 
<056> 
<046> 

< 157> 
<047 > 

< 086 > 

<162> 

<058> 
<106> 
<034 > 
<242> 

< 112 > 

<124> 
<231 > 
<166> 

< 164> 

< 186> 

<253> 

<133> 

<024> 

<037> 

<001 > 

<001 > 

<206> 

<230> 

< 196> 
<251 > 

<243> 
< 101 > 
<252> 
<072> 
<003> 
<088 > 

<242> 

< 112 > 

<080> 

< 102 > 
< 163> 

<104> 

<14B> 

<074> 

<138> 

<250> 
< 202 > 
<082> 
<027> 

<136> 
<244 > 
<201 > 

<099> 

<0B9> 

<057 > 

<148> 

<223> 

<042> 
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600 REM BERECHNUNG DER NORMALENVEKTOREN <UB> 

6X0 Z=(P7.(F7.(VF,2) , 0) -P7. (FXtVF , 1 > ,0) )*<P7.< 

F7.(VF,0) ,1>-PX(FX(VF,1> ,1)) <150> 

620 Z=Z-<P7.<FX(VF,0) , 0) -P7. (F7.< VF , 1 > ,0) ) * (P 

X<FX(VF,2> ,1>-PX(FX<VF,1> ,1) ) <141> 

630 IF Z=<0 THEN 720:REM FACETTE NICHT SI 

CHTBAR <009> 

640 X=<P7.(F7.<VF,2) , 1) —P7.tF7. (VF , 1) ,1>>*<P%< 

F7.(VF,0) ,2>-P7.CF7.CVF,l> ,2) ) <17B> 

650 X=X-(P7.(F7.(VF,0> , 1 > -P7. (F7. (VF, 1) ,1))*<P 

7.(F7.(VF,2) ,2)-P7.(F7.<VF,l) ,2)) <155> 

660 Y=(P7.(F7.(VF,2) ,2)-P7.(F7.(VF, 1) ,2) )*CP7.( 

FX(VF,0) ,0>-PX(F7.(VF,l> ,0) ) <199> 

670 Y=Y-(P7.(F7.(VF,0) ,2) -P7. (F7. <VF , 1 > ,2) ) * (P 

7 . (FX (VF ,2) ,0>-P7.(F7.(VF,l) ,0) > <1B3> 

680 NC=SQR(X*X+Y*Y+Z»Z>:REM LAENGE DES NO 

RMALENVEKTORS 1 <068> 

690 SH(VF)=26*(2*Z+X+Y)/NC <114> 

700 SH(VF)=(SH(VF)+64)*(SH(VF)+64)/256:REM 

SCHATTIERUNG < 177 > 

710 GOTO 730 <226> 

720 VF=VF-1 <235> 

730 NEXT <232> 

740 : <208> 

750 PRINT" BERECHNUNG DER DARSTELLUNGSGROE 

SSE” <140> 

760 Y=0:FOR N=0 TO VN-1:IF ABS (P7.(N, 1) ) >Y 

THEN Y=ABS(P7.(N,I) ) <190> 

770 NEXTs S=119/Y <075> 

780 FOR N=0 TO VN-1:PX<N,1)=S*PX(N,1>+YC:P 

X<N,0)=S*PX(N,0)+XC:NEXT <130> 

790 : <004> 

800 : <119> 

810 FOR N=0 TO VF <115> 

820 Z7.(N) = (P7.(F7.(N,0) ,2)+P7. (F7. (N, 1) ,2>+P7.( 

FX(N,2>,2))/3:NEXT <060> 

830 : <044> 

840 PRINT" SORTIERUNG DER FACETTEN" <010> 

850 POKE 140,VF <004> 

860 KX(0)=KX(0) :POKE 251 ,PEEK<71) :POKE 252 

,PEEK(72) <154> 

870 Z7.(0)=Z7.(0) :POKE 253,PEEK(71):POKE 254 

,PEEK<72) <019> 

880 SYS(KS) <153500- 

890 : < 104 > 

900 REM ZEICHNE FACETTEN <002> 

910 SYS(BR):SYS(CO):SYS(CL):POKE B0,1 <16B> 

920 FOR N=0 TO VF:FA=K7.(N) <009> 

930 IF WI THEN SH(FA)=64 <016> 

940 X0=P7.(F7.(FA,0) ,0): Y0=P7. (F7. (FA,0) ,1):X1 

=P7.(F7.(FA,1) ,0>:Y1=PX(FX(FA,1) ,1) <170> 

950 X2=PX(FX(FA,2) ,0) : Y2=PX(F7.(FA,2) ,1) <193> 

960 SYS(FC),X0,Y0,X1,Y1,X2,Y2,SH(FA) <225> 


970 NEXT <21B> 

980 POKE 198,0 <126> 

990 GET A*:IF A$="" THEN 990 <168> 

1000 SYS <TX>:POKE B0,14:END <128> 

1010 : <224> 

1020 REM SCHEITELDATEN <083> 

1030 DATA 1000,618,0, 1000,-618,0, -1000,6 

18,0, -1000,-618,0 <092> 

1040 DATA 0,1000,618, 0,1000,-618, 0,-1000 

,618, 0,-1000,-618 <099> 

1050 DATA 618,0,1000, -618,0,1000, 618,0,- 

1000, -618,0,-1000 <183> 

1060 DATA 618,0,236, 618,0,-236, -618,0,23 

6, -618,0,-236 <043> 

1070 DATA 236,618,0, -236,618,0, 236,-618, 

0, -236,-618,0 <243> 

1080 DATA 0,236,618, 0,-236,61B, 0,236,-61 

8, 0,-236,-618 <100> 

1090 DATA 382,382,382, 382,382,-382, 382,- 

382,382, 382,-382,-382 <236> 

1100 DATA -382,382,382, -382,382,-382, -38 

2,-382,382, -382,-382,-382 <056> 

1110 : <070> 

1120 REM VERBINDUNGSDATEN <109> 

1130 DATA 0,12,13, 0,13,25, 0,25,16, 0,16, 

24, 0,24,12 <057> 

1140 DATA 1,12,26, 1,26,18, 1,18,27, 1,27, 

13, 1,13,12 <248> 

1150 DATA 2,15,14, 2,14,28, 2,28,17, 2,17, 

29, 2,29,15 <251> 

1160 DATA 3,14,15, 3,15,31, 3,31,19, 3,19, 

30, 3,30,14 <208> 

1170 DATA 4,16,17, 4,17,28, 4,28,20, 4,20, 

24, 4,24,16 <110> 

1180 DATA 5,17,16, 5,16,23, 5,25,22, 5,22, 

29, 5,29,17 <168> 

1190 DATA 6,19,18, 6,18,26, 6,26,21, 6,21, 

30, 6,30,19 <177> 

1200 DATA 7,18,19, 7,19,31, 7,31,23, 7,23, 

27, 7,27,18 <235> 

1210 DATA 8,20,21, 8,21,26, B,26,12, 8,12, 

24, 8,24,20 <060> 

1220 DATA 9,21,20, 9,20,28, 9,28,14, 9,14, 

30, 9,30,21 <144> 

1230 DATA 10,23,22, 10,22,25, 10,25,13, 10 

,13,27, 10,27,23 <074> 

1240 DATA 11,22,23, 11,23,31, 11,31,15, 11 

,15,29, 11,29,22 <224> 


© 64 'er 
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BestaiungöD aus 
anderen Ländern bitte 
per Auslandspost 
Anweisung 1 Achtung. 
Nicht die exi ge heftete 
Zählkarte verwendun. 


Bestellungen aus der 
Schweiz bitte drekt an: 
Mark! Ä Technik 
Vertriebs AG. Kollw- 
str 3. CH-6300 Zug. 
TteL 042/2231 55 


Bo 6 t mgen aus 
Österreich bitte direkt arv 
Bücher/entrum MoidBng. 
Schonbrunnerstr. 261 
1120 Wien 
Microcomput-ique 
Erhard Sorwior 
Fasangasse 21 
1030 Wien 


Programme aus früheren Ausgaben 


Ausgabe 8/85 

Bestell-Nr. L 6 8508 A DM 29,90* 

Sonderheft: Tips&Tricks 

(2. ü. Auflage) 

Floppy-Utilitios 

CB 023 DM 29,90* 

Hilfsprogramme 

CB 024 DM 29.90* 

Sonderheft: Spiele 

Beide Disketten in einem Paketl 
Verwenden Sie nur diese Bestell-Nr.: 

L 6 85S3 A DM 34,90* 


Ausgabe 6/85 

Bestell Nr. L 6 8506A 
Commodore 64 
MSE 

HI-EDD1/MPS 801 
Prost 

E-Routine 64 
GCR-HEX 
HEX-GCR 
Samurai 

Scroll-Machine (LdMI 

Crossreferenz 

Heapsort 


DM 29,90* 

S. 54 
S. 69 
S. 76 
S. 148 
S. 117 
S. 118 
S. 72 
S. 61 
S. 155 
S. 126 


C 16 

F-Plotter S. 68 


Ausgabe 7/85 

Bestell Nr. L 6 8507 A 

DM 29,90* 

Commodore 64 
Haushaltsbuch |AdMI 

S. 

67 

Terminalprogramm 

S. 

152 

Centron 

S. 

80 

Editor 

S. 

151 

Ein-/Ausgaberoutine 

S 

77 

Fenster (C 16) 

S 

84 

File-Compactor 

S. 

82 

Hypra-Assembler (LdM) 

S. 

66 

lEEE-Basic 

S. 

46 

Logik 

s. 

144 

Merkzettel 

s. 

83 

Modulator 

s. 

46 

REM-Killer 

s. 

75 

Sound Editor 

s. 

136 

Startgenerator 

s. 

74 


Sonderheft: Abenteuerspiele 

Bestell-Nr.: L685 S2 DM 34.90* 


Ausgabe 5/85 

Bestell-Nr. L 6 8505 A 
Commodore 64 
Checksum. Schnell 
MSE Lader 
MPS 802 
Format-System 
VIC 
65101 

Sternenhimmel (AdM) 
Assemblerkurs 
Direktory-Sorter 
Trick.OBJ 


DM 29.90* 

S. 54 

Bl 31 
S. 147 
S. 175 
S. 71 
S. 57 
S. 144 
S. 77 
S. 65 


3D-Movie-Maker (LdM) 
Modulator (Heft 41 
VC 20 

Checksummer 
Minigrafik 
Longscreen 
C 16 

Help (kTrace 

Ausgabe 4/85 

Bestell-Nr. L 6 8504A 
Commodore 64 
Checksum, Schnell 
MSE Lader 
S-MON Teil 5 
Window 64 
XBASIC 

ASS. Kurs: Teil 8 
Hypra-Perfect 
11 neue Einzeller 
Print-List 
Netzgrafik 

ROT-DEMO 
X.Y-DEMO 1 u. 2 
Ostereier 

Befehlserweiterung 
VC 20 

Checksummer 
Supergrafik III 
Prg. Schutz 

Ausgabe 3/85 

Bestell-Nr. L 6 8603A 
Commodore 64 

Checksu. Schnell 
MSE Lader 
Hires-3/Teil 2 
IntellisearchSC 
Son of Destroyer 
Ligatab (LdM) 

Fl. 8asicloader 

Floppylister 

E.Zeichnen 1 und 2 

Meisterschütze (AdM) 

Saver 

Screensave 

Pic-Loader 

VC 20 

Checksummer 

IRQ-Clock 

Autostart 

Ausgabe 2/85 

Besten-fJ • 6 8502A 
Commodore 64 
Checksummer 64 
MSE 

SMON (Teil 4) 

Grab des Pharao (LdM) 

Basic-Lader 

RAM-Floppy 


S. 

65 

S. 

155 

S. 

54 

S. 

69 

S. 

83 

s. 

84 


DM 29.90* 

S. 

54 

S. 

58 

s. 

67 

s. 

88 

s. 

59 

S. 138 

S. 

76 

S. 153 

S. 

79 

s. 

71 

s. 

73 

s. 

73 

s. 

51 

s. 

23 

s. 

56 

s. 

73 

s. 

83 


DM 29,90* 

S. 

70 

S. 

79 

S. 

136 

s. 

153 

S. 

42 

S. 

63 

S. 

82 

S. 

82 

S. 

72 

S. 

53 

S. 

89 

S. 

88 

S. 

90 

S. 

70 

S. 

156 

s. 

159 


DM 29,90* 

S. 65 
S. 68 
S. 72 
S. 56 
S. 91 
S. 92 


Notlandung 


S. 

156 

Hiros-3 


S. 

123 

Benchmark-Test 


S. 

37 

Format.Stringkur 


S. 

148 

Versch. Test.USR 


S. 

140 

Cursorsteuerung 


S. 

86 

Rolling-Dala 


S. 

88 

Super-Memory 


S. 

81 

VC 20 




Checksummer VC 20 


S. 

65 

Famiiienplanung (AdM) 


s. 

53 

Super 8-Steuorung 


S. 

70 

Q+Bert I3K) 


S. 

78 

Joypaint 


s. 

143 

Bitmapping 


s. 

145 

Multicolor-Demo 


s. 

146 

Ausgabe 1/85 




Bestell-Nr, L 6 8501A 

DM 

29 

90* 

Commodore 64 




Checksummer 64 


s. 

72 

Handballtrainer (AdM) 


s. 

53 

SMON (Teil 3| 


s. 

69 

Hi-Eddi (LdMI 


s. 

57 

Hypra-Load mal vier 


s. 

82 

Tips und Tricks 


s. 

87 

Provic 64 


s. 

76 

Eingabe (UPB) 


s. 

156 

VC 20 




Checksummer VC 20 


s. 

72 

Ausgabe 12/84 




Bestell-Nr. CB 022 

DM 

29 

90* 

Commodore 64 




Synthesizer (AdM) 


S. 

51 

SMON (2. Teil) 


s. 

60 

3D-Vier gewinnt 


s. 

96 

Trace 


s. 

76 

Stringy 


s. 

88 

Lader 


s. 

92 

Auto 


s. 

84 

Listschutz 


s. 

85 

Simons Axo (SBI 


s. 

64 

Kreuzworträtsel S. 1 50 




VC 20 




Mathematikal Basic (8K > 

) 



(LdM) 


s. 

55 

Fast Tape 


s. 

80 

Ausgabe 11/84 




Bestell-Nr. CB 020 

DM 

29 

90* 

Ausgabe 10/84 




Bestell-Nr. CB 019 

DM 

29 

90* 

Ausgabe 9/84 




Bestell-Nr. CB 014 

DM 

29 

90* 

Ausgabe 8/84 




Bestell-Nr. CB 013 

DM 

29 

90* 


Bedeutung der Abkürzungen 

*LdM - Listlng des Monats 

*AdM - Anwendung des Monats 

*SB = Simons Basic 

*GV = Grundversion 

*GV> = alle Speicherversionen können 


verwundet wurden (umachlioßlich 

GV) 

*3K 3-KUyte-Speicherer Weiterung 

wird benötigt 

’8K> = Speicherei Weiterung größer als 8 
KByte wird benötigt 
*UPB = Unterprogrammbibliothek 


• Allo Pruise inklusive Mehrwertsteuer. 

Achtung! 

Bitte verwenden Sie für Ihre Bestellung nur die 
eingehefteto Posischeck-Zahlkartc zur 
Überweisung des Rechnungsbetrags. 


Fehlende Hefte erhalten Sie 
bei: Markt & Technik 
Vertrieb 64'er 
Hans-Pinsel-Str. 2, 

8013 Haar 























Grundlagen 


Soft-Scrolling 
auf dem C 64 


Durch diese AND-Funktion werden also die Bits 0 bis 2 
gelöscht. Die Bits 3 bis 7 ändern sich nie. Durch die OR- 
Funktion werden die entsprechenden Bits gesetzt: 
01101000 
OR 3 00000011 

ergibt 01101011 


Soft-Scrolling in eigene Programme 
einzubauen, kann oft zum Problem 
werden. Wie es gemacht wird, zeigt 
Ihnen dieser Beitrag. 

Jeder kennt bestimmt Defender oder ähnliche Arcade- 
Games, bei denen die Hintergrundlandschaft über den 
Bildschirm zieht. Gemeint ist das sogenannte Smooth- oder 
Soft-Scrolling. Der Unterschied zwischen normalem und 
Soft-Scrolling ist, daß der Bildschirm beim Soft-Scrolling in 
Einerschritten (um ein Pixel) und beim normalen in Achter¬ 
schritten (immer um acht Pixel gleichzeitig) verschoben wird. 

Beim Achterscrolling werden einfach die Speicherstellen 
des Video-RAMs (ab 1024/S0800) um jeweils eine Stelle 
nach links, rechts, oben oder unten verschoben. 

Zum Achterscrolling ein Beispiel in Basic: 


Die Bits für das horizontale Scrolling enthalten jetzt den 
Wert 3. Der höchste mit den Bits O bis 2 zu erreichende Wert 
ist 7, der niedrigste ist 0. Je größer der Wert in diesen drei 
Bits, desto weiter wird der Bildschirm nach rechts verscho¬ 
ben! Mit dieser Erkenntnis können wir den Bildschirm um 
sieben Pixels nach rechts rollen! 

10 REM Beispiel Nr. 2 
20 F0R 1=0 T0 7 

30 P0KE 53248+22,PEEK (53248+22) AND 248 0R I 
40 F0R T=0 T0 1000:NEXT T 
50 NEXT I 
60 RUN 

Dieses Programm verschiebt den Bildschirm langsam von 
der normalen Position um sieben Pixel nach rechts. Dann 
wird er wieder auf die normale Position zurückgesetzt und 
rollt wieder nach rechts. Wie macht man es nun, daß der 
Bildschirm über das 7. Pixel hinausscroilt? 

Dies ist ganz einfach: Nachdem das 7. Pixel erreicht 


10 REM Beispiel Nr. 1 
20 PRINT CHR$(l47);TAB(l4); 

30 PRINT 'ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

40 F0R 1=1064 T0 1024 STEP -1 
50 P0KE I,PEEK (1-1) 

60 NEXT 

70 00X0 40 mm onun*- 

Dieses Programm arbeitet zwar noch relativ schnell, aber 
wir werden später diese Aufgabe einem Assemblerpro¬ 
gramm übergeben. 

Das Alphabet wird nach dem Eintippen dieses Programms 
nach rechts herausgeschoben. Dieses Achterscrolling ist 
aber zu sprunghaft, und falls es schneller läuft, ist die ge- 
scrollte Schrift unleserlich. 

Das Soft-Scrolling bewirkt, daß die Schrift gleichmäßig 
fließend und damit leserlich gemacht wird. Wie scrollt man 
denn nun aber den Bildschirm um nur ein Pixel? 

Die Hauptrolle hierbei spielen die Speicherstellen 
53248 + 17 (53248 = Basisadresse des Video-Chips +17 
für das vertikale und 53248+22 für das horizontale 
Scrolling). 

Befassen wir uns zunächst mit dem horizontalen Scrolling. 

Die Speicheradresse 53248+22 ist folgendermaßen auf¬ 
gebaut: 

Bit 7 bis 5 : Sind nicht benutzt 
Bit 4 : Zur Umschaltung auf Multicolor 
Wichtig sind für unsere Anwendung nur: 

Bit 3 : Umschalten von 40 auf 38 Spalten 
Bit 0 bis 2 : Horizontales Scrolling 
Dazu ein Versuch: 

POKE 53248 + 22,PEEK (53248 + 22) AND 248 OR 3 
Nun müßte sich der Bildschirm um drei Pixels nach rechts 
verschoben haben. 

Einige werden sich jetzt fragen, warum die AN Ds und ORs? 
Nehmen wir einmal an, im Register 22 des VIC würde die 
Zahl 107 stehen. Diese Zahl wird mit 248 AND-verknüpft. 

Beide Zahlen müssen binär aufgeschlüsselt werden: 

107 = 01101011 
AND 248= 11111000 

ergibt 01101000 


wurde, machen wir ein Achterscrolling, das heißt wir 
verschieben einen Bildschirmcode um ein Zeichen nach 
rechts. Gleichzeitig setzen wir das Scrollregister wieder auf 
Null und haben jetzt das 8. Pixel erreicht. 



Eisles Zeichen 


Zweites Zeichen 


Bild 1. Grafische Erläuterung des Soft-Scrolling 

Jetzt können wir die Prozedur wieder von vorne beginnen 
(dazu ein Flußdiagramm). 

S=SCROLLREGISTER 

Dieses Flußdiagramm muß nun noch in ein Programm 
umgesetzt werden. Würde das gesamte Programm in Basic 
geschrieben, wäre es ziemlich langsam. Deshalb wird im 
nachstehenden Listing das Achterscrolling in Assembler rea¬ 
lisiert. Es scrollt die erste Zeile in Achterschritten nach 
rechts. Zuerst die Darstellung in Maschinensprache und 
dann in DATA-Zeilen: 


LDA $0427 

Speicherstelle 1063 merken 

STA SFB 


LDX #38 

Bei Spalte 38 anfangen 

LDA $0400,X 

Bildschirmcode laden 

INX 

Um 1 erhöhen 

STA $0400,X 

Und abspeichern 

DEX 


DEX 

Um 2 erhöhen 

CPX #$FF 

Schon fertig ? 

BNE V 


LDA SFB 

1063 wieder nach 1024 

STA $0400 


LDA $D016 

Scrollregister laden 

AND #248 

Scrollbits löschen 

STA $D016 

Zurückspeichern 

RTS 
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Grundlagen 


Dieses Maschinenprogramm schiebt die Zeilen, die in der 
ersten Zeile des Bildschirms stehen, nicht nur nach rechts, 
sondern macht ein Rundum-Scrolling. Die rechts verschwun¬ 
dene Schrift erscheint also wieder am linken Bildschirmrand. 
Dies wird durch die ersten und letzten beiden Maschinenpro¬ 
grammzeilen ermöglicht. Startet man dieses Programm, so ist 
ab und zu ein leichtes Zucken zu erkennen. Dies liegt daran, 
daß der Elektronenstrahl, der den Bildschirm 25mal in der 
Sekunde aufbaut, die erste Zeile schreibt, während sie ge- 
scrollt wird. Wie kann man das vermeiden? 

Es ist das Register 53248 + 18, das benötigt wird. In ihm 
steht die Zeile, in der sich der Elektronenstrahl befindet 
(nähere Informationen siehe 64'er, Ausgabe 11/84). 

Wir brauchen also nur dieses Register auszulesen und die 
erste Zeile erst dann zu scrollen, nachdem sie vollständig 
vom Elektronenstrahl aufgebaut wurde. 

Die Abfrage muß in Assembler geschehen, da ein Basic- 
Programm im Verhältnis zur Geschwindigkeit des Elektronen¬ 
strahls zu langsam ist. Der richtige Zeitpunkt für den Beginn 
des Scrollings ist ungefähr dann gegeben, wenn der Strahl 
die Rasterzeile 100 erreicht hat. 

Wir müssen das obige Maschinenprogramm also noch 
etwas erweitern. Ganz am Anfang muß stehen: 



Bild 2. Das Flußdiagramm erläutert die verwendete 
Scroll-Routine 


X LDA 53248+18 
CMP #160 
BMI X 
CMP #190 
BPL X 
RTS 


Rasterzeile auslesen 
Vergleiche auf 160 
Wenn kleiner dann nach X 
Vergleiche auf 190 
Wenn größer dann nach X 


Und nun das gesamte I-Zeilen-Soft-Scrolling in Basic: 
(Das dazugehörige Maschinenprogramm ist so geschrieben, 
daß es in jeden Bereich gePOKEt werden kann!) 

6*€R 

10 REM Beispiel Nr. 3 

20 PRINT CHR$(147);GOSUB 100 

30 PRINT "Beliebiger Text kleiner als 40 Zeichen" 

40 REM Farbe = schwarz 

50 F0R 1=55296 T0 55296+39:POXE I,0:NEXT 

60 F0R 1=1 T0 7 

70 P0KE 53248+22,PEEK (53248+22) AND248 0RI 
80 F0R T=0 T0 5:NEXT 

90 NEXT I 


Assembler um! Schreiben wir zunächst die Zeilen 60 bis 90 
des Beispiels Nummer 3 in Assembler: 


M LDA 53248 + 22 
AND #7 
CMP #7 
BNE N 

JSR ACHTSC 
JMP M 

N INC nS 248 + 22 
LDX # $FF 
Q LDY #$30 
A INY 
BNE A 
INX 
BNE Q 
JMP M 


Scrollregister laden 
Scrollbits ausfiltern 
Schon 7 ? 

Wenn nicht dann Einerscrolling 
Achterscrolling 
Nächste Verschiebung 
Scrollreg. erhöhen 
Verzögerungsschleife 


Nächste Verschiebung 


Diese Routine müssen wir nur noch in das obige Achter- 


100 F0R T=0 T0 3:NEXT 

110 SYS32768:REM Achterscrolling 

120 GOTO 60 

130 REM Masch.PRG einiesen 

140 F0R 1=32768 T0 32768+44:REM 44 DATAs 

150 READ G:S=S+G:P0KE I,G:NEXT 

160 IF S=6044 THEN 180 

170 PRINT "FEHLER IN DATAS!":ST0P 

180 RETURN 

190 DATA 173,18,208,201,160,48,249,201 

200 DATA 190,16,245,173,39,4,141,255,207 

210 DATA 162,38,189,0,4,232,157,0,4,202 

220 DATA 202,224,255,208,243,173,255,207 

230 DATA 141,0,4,173,22,208,41,248,9 

240 DATA 0,141,22,208,96 


Man stellt fest, daß die Zeichen am rechten Rand langsam 
herauswandern, aber am linken Rand plötzlich auftauchen. 
Dies läßt sich verhindern, indem man den Bildschirm seitlich 
verengt (Bit 3 des Registers 53248 + 22 löschen). Das kann 
man mit 

POKE 53248+22,PEEK(53248+22)AND247 erreichen. 
Platz dafür wäre zum Beispiel in Zeile 45. 

Basic reicht nicht aus, um eine angemessene Geschwin¬ 
digkeit zu erreichen. Deshalb steigen wir nun ganz auf 


scrolling einbauen. Für die Basic-Fans haben wir einen Basic- 
Lader dieses Programms am Schluß abgedruckt. Kommen 
wir nun zum vertikalen Scrolling: 

Im Prinzip funktioniert es wie das horizontale, es wird nur 
ein anderes Register benutzt. 

Das Register für das vertikale Scrolling ist: 53248 + 17. 
Für das Scrolling sind wie beim horizontalen Scrolling die 
Bits 0 bis 2 verantwortlich. 

Einzeilen Soft-Scrolling (DATA-Lader): 

0 DATA173,22,208,41,7,201,7,208,6,32,34,128,76,0, 

128,32,68,128,238,22,208 

1 DATA162,255,160,160,200,208,253,232,208,248,76,0, 
128,173,39,4,133,251 

2 DATA162,38,189,0,4,232,157,0,4,202,202,224,255, 
208,243,165,251,141,0 

3 DATA4.173,22,208,41,248,141,22,208,96,173,18,208, 
201,160,48,249,201,190 

4 DATA16,245,96,255 

10 FORI=327687032768+5*16 

20 READA:POKEI,A 

30 NEXT 

40 PRINT"(CLR) HIER K0ENNTE EIN TEXT STEHEN. 

50 SYS32768 

READY 


'iLYäj* 


(Frank Barcikowski + Holger Vocke/ah) 

im 
























Grundlagen 


Sprites 
ohne Streß 

Es soll immer noch Leute geben, die 
sich nicht an die Programmierung von 
Sprites herantrauen, weil sie von den 
recht unverständlichen Ausführun¬ 
gen im Commodore-Handbuch ziem¬ 
lich verunsichert sind. Deswegen wol¬ 
len wir hier die Grundlagen der Spri¬ 
tes darstellen. 

Spielefreaks haben sie lieben gelernt: die Sprites, frei auf 
dem Bildschirm bewegbare Objekte in hoher grafischer Auf¬ 
lösung, die sogar mehrfarbig sein können. Doch nicht nur in 
Videospielen haben sich die Sprites bewährt: Auch als Mini- 
Grafik, Erkennungszeichen oder verschnörkelter Schriftzug 
waren sie schon zu sehen, und jede Woche entdeckt irgend¬ 
ein findiger Kopf eine Anwendungsmöglichkeit mehr. 

Wer Sprites als grafische »Auflockerung« seiner Pro¬ 
gramme verwenden will, der kann mit dem ganz normalen 
Commodore-Basic hervorragende Ergebnisse erzielen, 
obwohl man dabei nicht um den berühmt-berüchtigten 
POKE-Befehl herumkommt. Wer allerdings ein rasantes 
Actionspiel programmieren will, der verlege sich doch besser 
auf Maschinensprache, denn die Bearbeitung von Sprites 
durch Basic ist dafür nichtschnell genug, es sei denn, man hat 
eine Basic-Erweiterung, die Sprites direkt unterstüzt. 

Drum also hier alles, was man wissen muß, um Sprites in den 
verschiedensten Variationen auf die heimische Mattscheibe 
zu bannen. 


Am Anfang ist die Idee 


Wer mit Sprites arbeiten möchte, der kommt um eines nicht 
herum: Ein Sprite-Entwurf muß angefertigt werden. Und das 
bedeutet zuerst einmal, daß man kariertes Papiersowie Bunt-, 
Filz- oder Bleistift aus der Schublade hervorkramt. Dann malt 
man einen Rahmen, der genau 24 mal 21 Kästchen ein¬ 
schließt. Vor sich hat man nun ein sogenanntes Sprite- 
Entwurfsblatt liegen. Zugegeben, einige Details fehlen noch, 
aber zumindest können Sie damit schon einmal genau festle¬ 
gen, wie Ihr Sprite später aussehen wird. 

Ein vollständiges Sprite-Entwurfsblatt sehen Sie in Bild 1. 
Dies sollten Sie sich am besten mehrere Male fotokopieren. 
Für die ersten Entwürfe ist aber normales kariertes Papier 
empfehlenswert, weil die meistens in endlose Radiererei aus¬ 
arten. Die vielen Zahlen auf dem Entwurfsblatt sollten Sie jetzt 
nicht verwirren: Zu deren Bedeutung kommen wir später. 

Erst einmal wollen wir uns auf einfarbige Sprites beschrän¬ 
ken. Sie können dann jedes der 504 Kästchen auf ihrem 
Sprite-Entwurfsblatt mit dem Stift einfärben oder auch freilas¬ 
sen. Jedes ausgemalte Kästchen wird später auf dem Bild¬ 
schirm in der Spritefarbe zu sehen sein. Die leeren Kästchen 
sind später durchsichtig. Sie können also beispielsweise 
einen Buchstaben umrahmen, indem Sie einen Rahmen als 
Sprite zeichnen und dieses über den Buchstaben legen. In 
der Spritemitte, in der sich nur leere Kästchen befinden, ist 
der Buchstabe zu sehen. 


So, jetzt kommt gleich zum ersten Mal der POKE-Befehl ins 
Spiel. Denn die nächste Frage lautet natürlich: Wie erkläre ich 
meinem C 64, wie das Sprite auszusehen hat? Für den Nur- 
Basic-Anwender, der auch umfangreiche Programme schrei¬ 
ben will, gibt es da nicht viele Möglichkeiten. Dem Computer 
muß das Aussehen des Sprites in 63 Speicherstellen mitge¬ 
teilt werden, die an bestimmten Stellen im Arbeitsspeicher 
stehen müssen. Wieso gerade 63? Wir erinnern uns: Ein 
Punkt kann entweder eingeschaltet sein oder ausgeschaltet 
(durchsichtig). 

In einer Speicherstelle lassen sich acht Ein-/Aus-!nforma- 
tionen speichern, es finden also acht Punkte eines Sprites 
Platz. Ein Sprite ist nun 24 Punkte breit. 24 ist 3 mal 8, also 
benötigen wir drei Speicherstellen, um eine Zeile eines Spri¬ 
tes zu definieren. Schließlich hat ein Sprite noch 21 Zeilen, so 
daß wir 3 mal 21, das sind 63 Speicherstellen, für die Punkte 
eines Sprites benötigen. 

Wo liegen nun diese 63 Speicherstellen? Hier haben wir, 
wollen wir nicht mit Unmengen von Tricks und noch mehr 
POKEs arbeiten, nur vier Möglichkeiten. Diese sind in Tabelle 
1 aufgeführt. 


Speicherbereich 

Codezahl 

704 — 766 

11 

832— 894 

13 

896— 958 

14 

960—1022 

15 

Tabelle 1: Speicherbereiche, in 

denen Spritedaten abgelegt 

werden können. 



wie bekomme ich nun mein Sprite da rein, werden Sie 
jetzt vielleicht fragen? Nun, schauen wir uns nochmal das 
Entwurfsblatt an. Jetzt sollen die Zahlen entschlüsselt wer¬ 
den: Wie gesagt, es wird eine Zeile jeweils durch drei Zahlen 
verschlüsselt. Die drei dicken Striche geben an, welcher Zei¬ 
lenbereich durch eine Zahl verschlüsselt wird. 

Angenommen wir möchten in der ersten Reihe die Punkte 
1, 3 und 5 setzen. Diese liegen alle in der ersten Spalten¬ 
gruppe. Um den Zahlenwert zu errechnen, müssen Sie nun 
einfach die Zahlen addieren, die über den gesetzten Punkten 
stehen. In unserem Beispiel wären das die 128, die 32 und 
die 8. Das Ergebnis, 158, tragen Sie dann in das erste Käst¬ 
chen mit der Überschrift »Zahlencodes« ein. Genauso verfah¬ 
ren Sie dann mit der zweiten und dritten Spaltengruppe und 
den weiteren 20 Zeilen. Schon haben Sie die 63 Zahlen¬ 
werte, die das Sprite codieren, ausgerechnet. Übrigens: Daß 
jede zweite Spaltentrennung gestrichelt gezeichnet ist, hat 
noch praktische Gründe, wie wir bei mehrfarbigen Sprites 
sehen werden. 


Ein Sprite erscheint 


Jetzt besteht also unser Sprite aus 63 Zahlen. Diese kön¬ 
nen wir nun in die angeführten Speicherbereiche POKEn 
(Tabelle 1). In einem Programm speichert man die 63 Zahlen¬ 
werte praktischerweise in DATAs und verwendet dann eine 
FOR-NEXT-Schleife, in der die Zahlenwerte in den Speicher¬ 
bereich gePOKEt werden. Jedem Speicherbereich ist dabei 
eine Codezahl zugeordnet, die nachher noch von entschei¬ 
dender Bedeutung sein wird. Die letzten drei Bereiche wer¬ 
den allerdings jedesmal gelöscht, wenn Sie die Datasette 
benutzen. 

Das war aber noch längst nicht alles. Es ist noch einiges zu 
tun, bevor das Sprite auf dem Schirm zu sehen ist. Wir 
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beschränken uns, bescheiden wie wir sind, auf ein einziges 
Sprite, das die Nummer 0 erhält. 

Als erstes sollten wir dem Video-Chip mitteilen, wo wir das 
Sprite im Speicher plaziert haben. Dazu dient die Speicher¬ 
stelle 2040. In diese Speicherstelle POKEn Sie bitte die 
Codezahl des Speicherbereiches. 

Dann müssen Sie das Sprite noch wie eine Lampe einschal¬ 
ten. Dazu POKEn Sie in die Speicherstelle 53269 einfach 
eine 1. Nun dürfte ihr Sprite irgendwo auf dem Schirm zu 
sehen sein, wahrscheinlich aber nicht da, wo Sie es gern hät¬ 
ten. Dem kann Abhilfe geschaffen werden: In die Speicher¬ 
stelle 53248 POKEn Sie die X-Koordinate, in 53249 die 
Y-Koordinate der gewünschten Position. In Bild 2 finden Sie 
dazu eine Orientierungshilfe. Sie werden sehen, daß das 
Koordinatensystem für die Sprites größer ist als der Bild¬ 
schirm. Ein Sprite kann also hinter dem Bildschirmrand ver¬ 
schwinden und ist dann nicht mehr zu sehen, obwohl es ein¬ 
geschaltet ist. Ein weiteres Problem ergibt sich da: Die X- 
Koordinate kann laut Bild 2 bis 511 gehen. Will man aber 
Werte größer 255 in die Speicherstelle der X-Koordinate 
POKEn, erhält man einen ILLEGAL QUANTITY ERROR. Um 
das Sprite auch in die rechte Hälfte bewegen zu können 
benötigt man eine weitere Speicherstelle, 53264. Soll das 
Sprite auf eine Position größer als 255, dann POKEt man dort 
eine 1 hinein. Danach zieht man 256 von der X-Koordinate 
ab und POKEt das Ergebnis wieder in die Speicherstelle 
53248. 

Somit können wir also ein Sprite auf jede Stelle am Bild¬ 
schirm und sogar über den Bildschirm hinaus positionieren. 

Vielleicht gefällt ihnen die Farbe Ihres Sprites aber über¬ 
haupt nicht, vielleicht konnten Sie es bisher auch gar nicht 
sehen, weil es dieselbe Farbe wie der Hintergrund hatte. Nun, 
auch hier hilft ein POKE: Die Speicherstelle 53287 bestimmt 
die Farbe unseres Sprites. Dort können die 16 im 
Commodore-Handbuch angegebenen Farbcodes hineinge¬ 
schrieben werden. 

Ein Weiteres läßt sich bei Sprites kontrollieren: Die Priorität. 
Nehmen wir einmal an, ein Sprite und ein Buchstabe oder 
Grafikzeichen überschneiden sich. Dann gibt es zwei Mög¬ 
lichkeiten: Das Sprite ist »hinter« dem Buchstaben, wird also 
verdeckt, oder ist »davor«, verdeckt also den Buchstaben. 
Sie können einstellen, wie sich das Sprite verhalten soll: 
Steht in Speicherstelle 53275 eine 1, so ist das Sprite »hin¬ 
ten«, ist dort eine 0, ist das Sprite »vorne«. 

Klein, aber fein sind diese Sprites, werden Sie jetzt wahr¬ 
scheinlich sagen. Warten Sie’s ab, es geht auch größer. Ein 
Sprite läßt sich »strecken« in X- und Y-Richtung. POKEn Sie 




mal eine 1 in 53277, und Sie verstehen, was damit gemeint 
ist. In die andere Richtung geht’s mit der Speicherstelle 
53271. POKEt man in beide Speicherstellen eine 0, ist der 
Spuk vorbei, und das Sprite hat seine »normale« Größe wie¬ 
der erreicht. 

Ein kleines Problem, das sogar Profis ins Grübeln gebracht 
hat: Streckt man ein Sprite in X-Richtung und setzt es an die 
X-Position Null, verschwindet es nicht vom Schirm! Die 
rechte Hälfte ist immer noch zu sehen. Soll nun aber das 
Sprite einen eleganten Abgang nach links machen, ist dies 
natürlich absolut störend. Doch auch hier gibt es eine beste¬ 
chend einfache Lösung. Stellen Sie sich das Sprite- 
Koordinatensystem als Zylinder vor. Wenn Sie unser 
gestrecktes Sprite an die Position 511 setzen, sehen Sie wie¬ 
derum fast die Hälfte des Sprites am linken Bildschirmrand. 
Verringert man die X-Koordinate nun langsam auf 488, wird 
es nach links hin entschwinden, wie wir es uns wünschen. In 
Y-Richtung taucht dieses Problem nicht auf. 


Jetzt wird’s bunt 


Bisher haben wir uns auf einfarbige Sprites beschränkt. Es 
geht aber auch dreifarbig! Eigentlich sind es sogar vier Far¬ 
ben, aber die vierte Farbe ist »durchsichtig«, und wir zählen 
sie deswegen nicht mit. 


Bitkombination 

Farbe 

00 

Durchsichtig 

11 

Farbe 1 

01 

Farbe 2 

10 

Farbe 3 

Tabelle Zusammenhang zwischen Ziffernkombinationen und 
Farbe bei Multicolor-Sprites. 


Bevor Sie jetzt aber jubelnd die buntesten Sprites entwer¬ 
fen, muß ich auf den Nachteil des »Multicolor«-Modus hinwei- 
sen: Sie haben nun nicht mehr 24, sondern nur noch 12 
Punkte pro Zeile, diese sind allerdings auch doppelt so breit 
wie die eines tristen, einfarbigen Sprites. 

Konkret bedeutet das, daß Sie schon beim Entwurf immer 
zwei nebeneinanderliegende Kästchen einfärben müssen, 
wenn Sie dort einen Punkt setzen sollen. Dabei dürfen Sie 
aber drei Farben benutzen. Die gestrichelten Linien in unse¬ 
rem Entwurfsblatt fallen also weg. 



Bild 2. Mögliche Sprite-Positionen mit Bildschirmbereich 
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Sprite 

0 1 2 3 4 5 6 7 

Codezahl-Speicher 2040 2041 2042 2043 2044 2045 2046 2047 

Spritefarbe (1) 53287 53288 53289 53290 53291 53292 53293 53294 

X-Position 53248 53250 53252 53254 53256 53258 53260 53262 

Y-Position 53249 53251 53253 53255 53257 53259 53261 53263 

Tabelle 3: Speicherstellen, die einzelne Sprites betreffen. 


Beim Errechnen der 63 Zahlen für das Sprite geht man 
dann so vor: Anstelle einer 1 für jeden gesetzten Punkt müs¬ 
sen Sie nun zwei Ziffern in das Sprite-Entwurfsblatt einset- 
zen, eine in das linke, eine in das rechte Kästchen eines 
Punktes. Welche Ziffern das sind, ist von der Farbe abhängig 
und steht in Tabelle 2. Ab dann verläuft das Ausrechnen der 
Zahlenwerte des Sprites genauso wie bei den einfarbigen 
Sprites. Allerdings kommen noch drei zusätzliche POKEs 
hinzu: In die Speicherstelle 53276 muß eine 1, damit der 
Video-Chip weiß, daß es sich jetzt um ein Multicolor-Sprite 


Einschalten 

53269 

Übertrag X-Position 

53264 

Vergrößern X 

53277 

Vergrößern Y 

53271 

Multicolor einsch. 

53276 

Priorität-Hintergrund 

53275 

Tabelle 4: Speicherstellen, die jeweils acht Schalter (je Sprite einen) 
enthalten. 


handelt. In die Speicherstelle 53285 kommt dann die Farbe 
2, in die Speicherstelle 53286 die Farbe 3. Die Farbe 1 
haben wir vorher schon in der Speicherstelle 53287 festge¬ 
legt. Schon schimmert uns ein schönes mehrfarbiges Sprite 
entgegen, das wir dann genauso wie ein einfarbiges behan¬ 
deln können. 


Ein Sprite kommt selten allein 


Schließlich steht ja im Commodore-Handbuch was von 
acht verschiedenen Sprites gleichzeitig. Also ohne viel Tricks 
kriegen wir nur vier verschiedene Sprites auf den Bildschirm, 
denn wir können ja nur vier Sprites in die Speicherstellen aus 
Tabelle 1 POKEn. Dafür haben wir die Möglichkeit, ein Sprite 
doppelt, dreifach oder sogar achtfach gleichzeitig auf den 
Bildschirm zu bringen. Mit acht Sprites ist dann allerdings 
auch die Kapazität unseres Video-Chips erschöpft. 

Wie kann man nun über die sieben zusätzlichen Sprites 
verfügen? Diese Sprites haben praktischerweise die Num¬ 
mern 1 bis 7. Für ihre Position, Farbe und ihre Codezahl 
haben sie ihre eigenen Speicherstellen, die in Tabelle 3 auf¬ 
geführt sind. 

Komplizierter wird es da schon bei den anderen Speicher¬ 
stellen, die in Tabelle 4 aufgelistet wurden. Jede dieser Spei¬ 
cherstellen hat Kontrolle über alle acht Sprites. Wenn Sie 
genauer hinschauen, bemerken Sie, daß alle diese Speicher¬ 
stellen nur An-/Aus-Funktion haben, sie sind sozusagen 
Schalter. Nun können aber in einer Speicherstelle, wie wir 
wissen, acht An-/Aus-lnformationen gespeichert werden, 
also für jedes Sprite genau eine. Jetzt folgen zwei Routinen, 
deren Wirkung ich Ihnen gerne erkläre, nicht aber die Funk¬ 
tionsweise. Dazu müßte ich längere Vorträge über Binär¬ 
arithmetik, logische Funktionen und ähnliches halten und 
damit den Rahmen dieses Artikels sprengen. 
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P0KE X, PEEK(X) 0H2 I N 

legt den Schalter in der Speicherstelle X für das Sprite N auf 
»An« um, ohne die anderen Schalter zu beeinflussen. 

P0KE X, PEEK(X) AND (255 - 2 I N) 

stellt den entsprechenden Schalter wieder auf »Aus« um, 
ohne die anderen zu beinflussen. 

Wichtig sind die beiden Adressen in der Tabelle 5: Sie sind 
uns schon bekannt, und legen die Farben 2 und 3 für alle 
Sprites verbindlich fest. Zwei Sprites im Multicolormodus, 
die gleichzeitig erscheinen, können sich also nur in der Farbe 
1 unterscheiden. 


Farbe 2 53285 

Farbe 3 53286 

Tabelle 5: Speicherstellen, die auf alle acht Sprites gleichzeitig wirken 


Damit ist das Wichtigste über Sprites gesagt. In Basic sollte 
man sich auf stehende Sprites beschränken. Sich be¬ 
wegende Sprites sind relativ langsam, wenn das Basic- 
Programm auch andere Funktionen nebenbei erfüllen muß. 

Wer Sprites öfters benutzen will, für den lohnt es sich, die 
ebenfalls in diesem Heft abgedruckte Basic-Erweiterung 
»Sprite-Basic« abzutippen, und das soeben Gelernte dann 
nicht mit POKEs, sondern mit richtigen Befehlen auszu¬ 
führen. Denn dann geht der Sprite-Spaß erst richtig los! 

(Boris Schneider/ev) 
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Hardcopy für 
Ihren Drucker 

... oder: von den Problemen, den Bild¬ 
schirminhalt auf Papier zu bringen — 
und natürlich von den Lösungen 
dieser Probleme! 

Das Problem dürfte sich jedem Benutzer des C 64 stellen, 
der einen Drucker hat: Auf dem Monitor oder Fernseher wird 
ein Bild dargestellt, doch leider ist es ganz unmöglich, dieses 
Bild auf dem Drucker auszugeben, denn es wird nicht der 
normale Bildschirm mit einer Auflösung von 25 Zeilen ä 40 
Zeichen dargestellt, sondern ein Bild in hochauflösender 
Grafik. Wie Sie trotzdem auch mit diesem Problem fertig wer¬ 
den, soll im folgenden beschrieben werden. 


Aller Laster Anfang: Ihr Drucker 


Schon beim Drucker stoßen wir auf schwerwiegende Pro¬ 
bleme, denn manche Drucker sind wirklich nur sehr schwer 
oder gar nicht zum Drucken von Grafik zu bewegen. Folgende 
Kriterien sollten bei Ihrem Drucker erfüllt sein: 

— der Drucker ist grafikfähig (natürlich die wichtigste Voraus¬ 
setzung): 

— der Drucker druckt mit mindestens acht Nadeln oder ähnli¬ 
chem. Damit ist gemeint, daß der Druckkopf so konstruiert 
ist, daß er vertikal acht Punkte untereinander drucken 
kann; 

— der Drucker beherrscht den sogenannten Bl-Mode (Bit¬ 
image-Mode). Das ist der Modus, in dem die hochauflö¬ 
sende Grafik ausgedruckt wird. 

Wenn Ihr Drucker diese Voraussetzungen erfüllt, dann ist 
es Ihnen in jedem Fall möglich, Ihre Bildschirmgrafiken auf 
Papier zu bringen. 

Aber auch Drucker, die keinen Bl-Modus haben, sind mitun¬ 
ter grafikfähig. Da die Druckerpalette jedoch sehr groß ist, 
werden wir auf keinen speziellen Drucker eingehen, und es 
bleibt Ihnen letztlich überlassen, die Tauglichkeit Ihres 
Druckers zu überprüfen. 

Auch bei Druckern der unteren Preisklasse findet man heu¬ 
te schon die sogenannten ESC-Sequenzen. Das sind Steuer¬ 
befehle für den Drucker, die ihn zum Beispiel dazu veranlas¬ 



Bild 1. Beispiel einer HiRes-Darstellung am 
Commodore 64 


'ZtÖLü* 


sen, die Schriftart oder etwa den Zeilenvorschub zu ver¬ 
ändern. Eine solche Steuersequenz erkennt der Drucker an 
einem speziellen Zeichencode, bei dem er nicht wie sonst 
üblich das empfangene Zeichen als solches ausgibt, sondern 
vielmehr auf weitere Zeichen wartet, die in ihrer Gesamtheit 
einen Steuerbefehl ergeben. Üblicherweise wird dabei als 
ESC-Code das Zeichen CHR$(27) an den Drucker gesen¬ 
det. 

ESC — (von escape, engl, 
für entkommen, flüchten) 


Die ESC-Sequenzen sind leider in keiner Norm vereinheit¬ 
licht. Deswegen darf normalerweise die Kompatibilität zwi¬ 
schen Druckern gleicher Leistungsklasse nicht ohne Ein¬ 
schränkungen angenommen werden. 

Nach Senden von ESC an den Drucker werden immer 
Daten nachgeschoben, die die Grundeinstellung des 
Druckers ändern, so etwa den Drucker dazu veranlassen, 
Grafik anstatt Klartext zu drucken. Wenn Sie einmal Ihr 
Druckerhandbuch aufschlagen und eine der Sequenzen 
ESC-K, ESC-L oder ESC-Z finden, dann werden Sie (hoffent¬ 
lich) feststellen, daß Sie in dem Teil des Handbuchs lesen, der 
Sie interessiert — der Ausgabe von Grafik. 

Jetzt sind noch ein paar Berechnungen anzustellen und 
schon kann das Bild auf dem Drucker ausgegeben werden. 
Doch diese Berechnungen haben es in sich! 


Wie die Grafik im Computer steht 


Der C 64 ist bekanntlich ein vielseitiger Computer. So hat 
er unter nderem in seinem Inneren einen kleinen Chip 
(6567 Video Interface Chip, kurz VICII) eingebaut, der dafür 
verantwortlich ist, daß sich etwas auf Ihrem Bildschirm tut. 
Der VIC II ist sehr flexibel und hat vielseitige Verwendungs¬ 
möglichkeiten innerhalb des C 64; wir beschränken uns 
jedoch hier auf die Funktionen, die ausschließlich für die 
Erzeugung der Grafik verantwortlich sind. 

Es können acht Grafikbildschirme vom VIC II verwaltet wer¬ 
den; ihre Basisadressen sind ein Vielfaches von 8192. So 
beginnt etwa der dritte Grafikbildschirm bei der Basisadresse 
16384 (bei 0*8192 liegt der erste Grafikschirm, dieser wird 
aber im Regelfall nicht benutzt, da der Bereich anderweitig 
belegt ist, zum Beispiel durch Zero-Page und Stack. 

Wenn Sie ein Bild drucken wollen, müssen Sie sich immer 
erst Klarheit darüber verschaffen, in welchem Bereich der 
Grafikbildschirm steht, den Sie ausgeben wollen. Zwar kön¬ 
nen Sie für die Berechnungen auch so lange zwischen den 



Bild 2. Die Rasterung verdeutlicht den Aufbau des 
HiRes-Bildschirms 
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Bild 3. Aufbau einer einzelnen Rasterzelle aus Bild 2 


Bild 4. Beispiel zur Berechnung der Zeilen-Wertigkeiten 
innerhalb einer HiRes-Rasterzelle 


acht Basisadressen wechseln, bis Sie den richtigen Bild¬ 
schirm erwischt haben, effektiver dürfte da aber das kleine 
Basic-Programm sein, das in Listing 1 dargestellt ist. Mit Hilfe 
dieses kurzen Programms werden die Grafikbildschirme 3 
(Startadresse 16384) bis 8 (Startadresse 57344) durch ein 
kurzes Maschinenprogramm auf die Startadresse des zwei¬ 
ten Grafikschirms verschoben und dort dargestellt. Dadurch 
wird es Ihnen möglich, auch die Grafikbildschirme 5 und 7 
von Basic aus problemlos auszugeben, da diese Schirme 
normalerweise nicht erreichbar sind (sie liegen »unter« dem 
ROM). Weil sich dieser Artikel nur mit der Ausgabe von Grafik 
beschäftigt, verzichte ich an dieser Stelle auf Erläuterungen 
zu dem Programm, denn dabei würde zu stark auf die Beson¬ 
derheiten des VIC II eingegangen werden müssen. 

Nicht genug der acht Grafikschirme, verfügt der VIC II auch 
noch über zwei verschiedene Darstellungsarten: den soge¬ 
nannten »High Resolution Mode« (HiRes, hochauflösende 
Grafik mit 64000 einzelnen Bildpunkten) und den »Multi- 
color-Mode«, in dem jeder Einzelpunkt in vier verschiedenen 
Farben dargestellt werden kann, bei dem aber dafür die Auflö¬ 
sung nur noch 32000 Bildpunkte beträgt. So mancher 
Anwender hat sich schon darüber gewundert, daß seine 
Hardcopy-Routine nur ein seltsames Strichmuster aufs 
Papier gebracht hat, aus dem man mit etwas Fantasie andeu¬ 
tungsweise das Originalbild entziffern konnte. Der Grund: im 
Multicolor-Modus werden in den Daten nicht nur die Bildinfor¬ 
mation, sondern auch die Farbinformation verschlüsselt. 

An dieser Stelle ein Tip: wenn Sie eine Grafik ausgeben 
wollen, jedoch keine Möglichkeiten haben, den Programm¬ 
ablauf zu unterbrechen, so können Sie durchaus einen Reset 
auslösen. Dabei wird das Bild normalerweise nicht gelöscht 
und Sie können dann fast immer von Basic aus weitere 
Schritte zur Ausgabe des Bildes einleiten. 


High Resolution Mode 

ln Bild 1 ist zunächst einmal ein HiRes-Bild als solches 
dargestellt. In Bild 2 wurde über das Bild zusätzlich eine 
Schraffur gelegt, um die Struktur der Ablage des Bildes zu 
verdeutlichen. Durch das Rastermuster wird angedeutet, daß 
die Informationen nicht etwa Reihe für Reihe abgelegt wer¬ 
den, sondern in kleinen Blöcken, von denen in eine Zeile 40 
passen, vertikal dagegen nur 25. Der Fachmann wird sich 
sofort an die Normaldarstellung von Zeichen erinnern. 
Tatsächlich ist diese Darstellung eng mit der normalen 
Zeichendarstellung verwandt. 

Bild 3 zeigt eine Vergrößerung eines Blocks. Man erkennt, 
daß ein Block seinerseits aus einer Matrix von 8x8 Punkten 
besteht. Ergo besteht ein Block aus 64 Punkten, und wir wis¬ 
sen, daß 25 x 40 = 1000 dieser Blöcke auf dem Bildschirm 


Platz haben, wodurch also insgesamt eine Auflösung von 
64000 Punkten erreicht wird. So weit, so gut. Aus Bild 3 geht 
aber noch weiter hervor, daß die Informationen innerhalb 
eines einzelnen Blocks zeilenweise abgelegt werden; ein 
Block setzt sich also aus 8 Bytes zusammen, die ihrerseits 
wieder in kleinste Informationseinheiten, die Bits, zerlegt 
werden können. Diese Blöcke werden bei der HiRes- 
Darstellung so lange aneinandergereiht, bis eine Zeile mit 
Blöcken (weiterhin auch als »Blockzeile« bezeichnet) gefüllt 
ist. Der nächste Block liegt dann naheliegenderweise unter 
dem ersten der vorangegangenen Zeile. 

Damit es etwas anschaulicher wird, wollen wir uns an die¬ 
ser Stelle mit einem kleinen Beispiel befassen. 

Aus Bild 2 ist Block 27 in Zeile 13 vergrößert im Bild 4 wie- 
deraegeben (Blockbereich 0-39, Zeilenbereich 0-24). Wei¬ 
ten, in wird für die Beispielrechnung angenommen, daß das 
Bild im Computer im Grafikschirm 2 (Basisadresse 8192) 
abgespeichert ist. Wenn Sie nun die Blöcke zeilenweise aus¬ 
zählen, werden Sie feststellen, daß der besagte Block die 
Nummer 547 (erster Block entspricht der Nummer 0) trägt. 

Zunächst wollen wir klären, wie der Inhalt gerade dieses 
Blocks zu ermitteln ist. Dazu berechnen wir beispielsweise 
die Adresse von Byte 0 innerhalb dieses Blocks nach der For¬ 
mel 

Byte 0 = Basisadresse+Blockzeilen*320+Blocknummer*8 

Wie läßt sich die Formel erklären? 

Zunächst einmal ist es verständlich, daß die Basisadresse 
des Grafikschirms der Positionsberechnung zugrunde 
liegen muß. Weiterhin faßt eine Blockzeile 40 Blöcke zu je 
8 Byte; eine Blockzeile besteht also aus 320 Byte. Nun muß 
man sich noch innerhalb der aktuellen Zeile zu dem Block 
bewegen, dessen Inhalt untersucht werden soll. Hierzu 
multipliziert man einfach die Anzahl der Blöcke mit 8, da sich 
ein Block aus 8 Byte zusammensetzt. Beachten Sie bitte bei 
der Berechnung, daß die Blockzeilen im Bereich 0 bis 24 
liegen, die Blocknummern dagegen im Bereich 0 bis 39. So 
ergibt sich zum Beispiel als Startadresse für den 27. Block 
in der 13. Zeile: 

Byte 0 = 8192 + 13 * 320 + 27 * 8 = 12568 

Bei dem Block in unserem Beispiel ergibt also der 
Basic-Befehl 

PRINT PEEK(12568) 

den Inhalt von Byte 0 des Blocks 547. Wie groß wird nun 
dieser Wert sein? 

Wie bereits erwähnt, besteht ein Byte aus kleinen 
Informationseinheiten (Bits). Das Bit kann entweder den 
Zustand »1« oder den Zustand »0« annehmen. Wenn Sie nun 
noch einmal Bild 3 betrachten, werden Sie erkennen, daß 8 
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solcher Bits ein Byte ergeben. Diese Bits werden mit Bit 0 bis 
Bit 7 von rechts nach links durchnumeriert. Da das Bit nur 
zwei Schaltzustände annehmen kann, wird zur Berechnung 
eines Bytes das Binärsystem zugrunde gelegt. Es ist 

2 7 =128 
2 6 - 64 
2 5 = 32 
2*= 16 
23 = 8 
2 2 = 4 
2 *= 2 

und schließlich 

2°= l 

Bereits mit diesen Vorüberlegungen läßt sich der Inhalt von 
Byte 0 berechnen. Wie Sie in Bild 4 sehen, ist nur Bit 5 
gesetzt, also ergibt sich als Inhalt von Byte 0 der Wert 2 S 
= 32. Diesen Wert würde auch die Abfrage »PRINT 
PEEK(12568)« ergeben. 

Entsprechend ergeben sich zum Beispiel für Byte 2 als 
Inhalt 

2? + 2 1 + 2° = 8 + 2 + l = 11. 

Damit lassen sich auch alle anderen Bytes eines Blocks 
berechnen. Das Verfahren verläuft analog zum gezeigten Bei¬ 
spiel. Die Inhalte aller Bytes des Beispiels sind vollständig in 
Bild 4 wiedergegeben. 


Der Drucker kommt ins Spiel 


Zunächst muß der Drucker für die Datenausgabe 
vorbereitet werden. Hierfür müssen Sie sicherstellen c daß 
ein eventuell vorhandenes Interface keine falsche Inter¬ 
pretation von gesendeten Daten vornimmt. Dies geschieht im 
Normalfall durch Setzen einer bestimmten Sekundär¬ 
adresse, bei einigen Herstellern auch als »Linearkanal« 
bezeichnet, weil gesendete Zeichen im Original an den 
Drucker weitergeleitet werden. 

Ebenso muß der Zeilen Vorschub korrigiert werden. Wenn 
man davon ausgeht, daß acht Punktreihen untereinander in 
einem Arbeitsgang gedruckt werden können, so ist der 
Zeilenvorschub so einzustellen, daß die nächste gedruckte 
Zeile sich nahtlos an die vorhergehende Zeile anschließt. 
Dazu ist der Zeilenvorschub im Regelfälle auf 24/216 Zoll zu 
stellen. 

Damit sind die besonderen Voreinstellungen, die sowohl 
für den HiRes- als auch den Multicolor-Modus Gültigkeit 


besitzen, vorgenommen. Weitere Operationen beziehen 
sich nun auf den jeweiligen Modus, von dem ausgegangen 
wird. 

Kommen wir schließlich zu dem schon anfangs erwähnten 
ESC-K und ESC-L. Mit diesen Sequenzen wird der Bl-Mode 
eingeschaltet. Doch das reine Einschalten genügt nicht; man 
muß auch noch spezifizieren, wieviele Daten zum Drucker 
gesendet werden. 

Schauen wir uns zunächst an, wie Grafik auf dem Drucker 
ausgegeben wird. Als Beispiel nehmen wir wieder Bezug auf 
Bild 4. Im ersten Teil haben wir überlegt, wie ein Block 
innerhalb des Computers abgelegt wird: ein Block besteht 
aus 8 Bytes, die horizontal untereinander stehen. 

Beim Drucker ist das nicht üblich. Da der Druckkopf im 
allgemeinen nur aus einer Reihe von vertikal untereinander 
liegenden Dots (Nadeln) besteht, werden die Daten vertikal 
aufbereitet erwartet. Wird deshalb im Grafikmodus des 
Druckers ein Byte gesendet, so werden maximal 8 Punkte 
vertikal untereinander gedruckt. Wir können vom Computer 
her jedoch immer nur horizontale Punktreihen per PEEK 
abfragen. Was benötigt wird, ist eine Routine, die jeweils 
einen Block aus 8x8 Punkten entsprechend umrechnet. Bei 
unserem Beispiel muß der Block aus Bild 4 entsprechend 
Bild 5 umgerechnet werden. Bei der Berechnung gehen wir 
in diesem Fall von der Tatsache aus. daß das höchstwertige 
Bit der Druckerkopfdots innerhalb der Druckkopfmatrix oben 
liegt. In Ihrem Handbuch kann aber auch nachzulesen sein, 
daß das höchstwertige Bit in der Druckmatrix nach unten 
weist. In diesem Fall würden sich die berechneten Werte 
gemäß Bild 6 ändern. Wie Sie sehen, ist es durchaus wichtig 
zu wissen, wie die Dotmatrix Ihres Druckers aufgebaut ist. 

Wir gehen davon aus, daß der zuerst beschriebene Fall 
zutrifft. Wie man relativ einfach die Matrix von Basic aus 
umrechm»n kann, wird durch das Basic-Programm in Listing 
2 illustriert. Mit diesem kleinen Programm können Sie jede 
beliebige Matrix umrechnen lassen. Dazu geben Sie nur die 
Startadresse Ihres Grafikschirms, die Zeile, in der sich der 
Block befindet und schließlich die Nummer des Blocks ähn¬ 
lich wie oben in der Formel erwähnt an. Der Inhalt des betref¬ 
fenden Blocks wird in dem Basic-Programm in Listing 2 in den 
Zeilen 190 bis 210 in das Feld BYTE eingelesen. Nun müssen 
die Daten gewandelt werden. Dazu folgende Überlegungen: 

Um das erste Bit links oben des ersten vertikalen Bytes zu 
erhalten, muß von Byte 0 Bit 7 betrachtet werden (siehe Bild 
4). Wenn es gesetzt ist, so wird es mit 2 7 = 128 multipliziert; 
man erhält so einen ersten Wert. Dann wird von Byte 1 Bit 7 
betrachtet und untersucht, ob das Bit gesetzt ist. Falls dies 
der Fall ist, wird es mit 2 6 = 64 multipliziert und zum ersten 
Wert addiert. Dann wird jeweils nach dem gleichen Schema 
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Bild 5. Das gleiche Zeichen wie in Bild 4, aber zur 

Druckeransteuerung um 90 Grad transformiert 


Bild 6. Wie Bild 5, aber für Drucker mit 
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von Byte 2 bis 7 das 7. Bit untersucht und schließlich mit 
einer absteigenden Potenz von 2 multipliziert und zum jeweils 
schon erhaltenen Wert (im Listing 2 die Variable OUTPUT) 
hinzuaddiert. Hat man auf diese Art und Weise das erste verti¬ 
kale Byte erhalten, kann selbiges an einen Drucker gesendet 
werden, denn jetzt ist die gewünschte Umwandlung vorge¬ 
nommen worden, wovon Sie sich durch Nachrechnen über¬ 
zeugen können. 

Da der Block aber aus 8 Bytes besteht, wird dann mit der 
Aufbereitung des 2. vertikalen Bytes fortgefahren, also Bit 6 
von Byte 0 untersucht. Ist es gesetzt, so muß es wieder mit 
2 ' multipliziert werden, damit es an die korrekte Stelle inner¬ 
halb der Dotmatrix rutscht. Wieder erhält man einen ersten 
Zwischenwert. Dann wird Byte 1 auf Bit 6 hin untersucht. Ist 
es gesetzt, dann wird es mit 2 6 multipliziert, um dieses Bit an 
die korrekte Stelle der Dotmatrix des Druckers zu bringen. 
Nach diesem Verfahren wird fortgefahren, bis auch das letzte 
vertikale Byte berechnet worden ist. 

Wenn Sie das Programm also starten und die Adresse 
eines Blocks eingeben, so erhalten Sie acht Werte, die 
jeweils (vergleiche hierzu nochmals den Zusammenhang 
zwischen den Bildern 4 und 5) die umgerechneten Werte 
wiedergeben. 

Um die Effektivität und Berechnungszeit zu kürzen, wurde 
die Umrechnung in einen sehr kompakten Ausdruck einge¬ 
bunden, über den Sie nicht gleich verzweifeln sollten (Zeile 
240). Der Ausdruck kann nur verstanden werden, wenn Sie 
sich schon mal mit der »And/Or-Boolean-Wüste« des Compu¬ 
ters beschäftigt haben, und ich möchte deswegen auch hier 
auf tiefergehende Erklärungen des Ausdrucks verzichten. 
Wenn Sie sich trotzdem für die Thematik interessieren, so 
empfehle ich Ihnen die im 64’er, Ausgabe 7/85 gestartete 
Serie »Logeleien«. Wichtig ist hier aber nur, daß Sie nachvoll¬ 
ziehen können, wie die Umrechnung im Prinzip funktioniert. 


Block an Block — Reihe an Reihe — 
fertig ist das HiRes-Bild 

Da nun ein Programm erstellt ist, das einzelne Blöcke 
gemäß unseren Anforderungen aufbereitet, sind wir fast an 
unserem Ziel angelangt. Die Drucker, bei denen es nicht 
möglich ist, mehr als einen Block auf einmal zu senden, 
haben praktisch damit das endgültige Programm, mit dem der 
Druck von Grafik möglich gemacht wird. Besser dran sind da 
schon die Besitzer von Druckern, die es erlauben, Grafik zei¬ 
lenweise auszugeben. Was jetzt nur noch fehlt, sind Schlei¬ 
fen, die die Blöcke hintereinander berechnen und eine kor¬ 
rekte Aufbereitung vornehmen. 


Basis des GrafikschirMs einiges»«-«* 


2e» l «nvorsc hub auf 24/21&' r 



Sende Code zur Einschaltung von BIM 

Block berechnen und ausgeben 

bis alle Bioeche einer Zeile fertig 

Sende Zeileuvorschub 

bis die Zeilen 0— 24 durchlaufen sind 

Zeilenvorschub auf 1 / 6 " einstellen 


Bild 7. Struktogramm zur Erstellung einer 
HiRes-Hardcopy 



Bild 6. Verschiedene Graustufen für eine 
Multicalor-Hardcopy 


Doch bevor die eigentliche Ausgabe beginnt: der Drucker 
muß bereit sein! Haben Sie also den Zeilenvorschub korri¬ 
giert? 1 

Nun, dann dürfte Ihr Programm dem Struktogramm in Bild 
7 entsprechen. 

Das Struktogramm enthält einen Punkt, über den man sich 
noch Klarheit verschaffen sollte: 

»Sende Code zur Einschaltung von HiRes«. 

Hier stellt sich die Frage, was man dem Drucker mitteilen 
soll. Da die Daten einer Blockzeile hintereinandergereiht 
auch einer Blockreihe auf dem Drucker entsprechen sollen, 
wird deutlich, was dem Drucker mitgeteilt werden muß: 

- c -Mode einschalten, dabei geeignete Punktdichte 
wählen 

— Anzahl der Daten definieren 

Da 40 Blöcke zu je 8 Byte gesendet werden sollen, muß 
dem Drucker mitgeteilt werden, daß 320 Zeichendaten fol¬ 
gen. Üblicherweise wird dazu zur Einschaltung des Bl-Mode 
ESC-L beziehungsweise ESC-K verwendet. Da die Vorge¬ 
hensweise bei beiden Steuerbefehlen gleich ist und sie sich 
nur bezüglich Ihrer Punktdichten unterscheiden, betrachten 
wir nur ESC-L. Sie werden in Ihrem Druckerhandbuch finden, 
daß nach dem Einschalten von ESC-L noch definiert werden 
muß, wieviele Zeichendaten gesendet werden, bevor der 
Drucker wieder in seinen normalen Modus zurückschaltet. 
Würde nämlich keine solche Definition vorhanden sein, so 
würde der Drucker jedes gesendete Byte nach Einschaltung 
des Bl-Mode als Grafikzeichen interpretieren und dann wäre 
zum Beispiel ein kontrollierter Zeilenvorschub unmöglich zu 
realisieren. Da Sie inzwischen wissen, daß sich eine Block¬ 
zeile im Computer und deshalb entsprechend auch später 
auf dem Drucker aus 320 Bytes zusammensetzt, müssen Sie 
vorder eigentlichen Ausgabe der Blockzeile dem Drucker die 
nachfolgende Anzahl von Zeichendaten mitteilen. Dazu wer¬ 
den üblicherweise zwei Zahlen nl und n2 nach den Formeln 

nl = Zahl der Daten - INT(Zahl der Daten/256) * 256 

und 

n2 = INT(Zahl der Daten/256) 

berechnet. In unserem Beispiel wären also nl = 64 und n2 
= 1. An den Drucker würde man also eine Steuersequenz 
senden, die folgendermaßen aussieht: 

CHR$(27);*K";CHR$(64);CHR$(1); 

Danach ist dann der Drucker im Bl-Mode und erwartet 320 
Zeichendaten, um dann wieder auf Normalbetrieb zurück¬ 
zuschalten. 
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Bild 9. Die Aufteilung einer Rasterzelle in Bitpaare bei 
Multicolor 


Das entsprechende Basic-Programm für die Ausgabe 
eines ganzen Grafikschirms im HiRes-Modus ist in Listing 3 
dargestellt. Beachten Sie aber Ihre druckerspezifischen 
Einschränkungen, bevor Sie das Programm ausprobieren. 
Überprüfen Sie bitte, wie bei Ihrem Drucker die einzelnen 
Funktionen angesprochen werden. Hilfestellung sollten 
Ihnen dabei das Struktogramm aus Bild 7 und das eigentliche 
Basic-Programm mit den reichlich eingefügten REM- 
Statements in Listing 3 bieten. Wenn Sie das Listing 2 mit 
Listing 3 vergleichen, werden Sie weiterhin feststellen, daß 
der Algorithmus zur Umrechnung eines Blocks übernommen 
wurde. Mit diesen Abschlußbemerkungen wenden wir uns 
jetzt dem zweiten Problem zu: dem Druck von Grafik im 
zweiten Grafikmodus. 


Der zweite Akt: Multicolor-Modus 


Der Multicolor-Modus unterscheidet sich erheblich vom 
HiRes-Modus. Das liegt daran, daß mehrere Farben verwen¬ 
detwerden dürfen. Dabei werden immer zwei hintereinander¬ 
liegende Punkte zu einer Informationseinheit zusammen¬ 
gefaßt, aus der sich ableiten läßt, ob ein Punkt gesetzt ist, und 
wenn, in welcher Farbe. Dargestellt werden können in dieser 
Betriebsart des VIC II nur noch 32000 Bildpunkte. 

Ein Punktpaar kann folgende Schaltzustände annehmen 
(1 = Bit gesetzt, 0 = Bit gelöscht): 

00 Punkt nicht gesetzt, wird in Hintergrundfarbe darge¬ 
stellt 

01 Punkt gesetzt, Darstellung in Farbe 1 

10 Punkt gesetzt, Darstellung in Farbe 2 

11 Punkt gesetzt, Darstellung in Farbe 3 

Wie man sich leicht selbst überlegt, muß eine Hardcopy 
einer Grafik dieses Modus also nicht nur zwischen gesetzten 
und nicht gesetzten Punkten differenzieren, sondern auch 
noch zusätzlich die Farbinformation weitergeben. 

Drei Farben auf dem Papier — 
ist das möglich? 

Mit einem normalen Drucker wird es selbstverständlich 
nicht möglich sein, Farben darzustellen. Der Drucker ist nur 
in der Lage, schwarze Farbe auf das Papier zu bringen. Es 
drängt sich hier der Vergleich mit einem Schwarzweiß- 
Fernsehgerät auf. Dort werden die unterschiedlichen Farben 
durch entsprechende Grauschattierungen wiedergegeben, 
die aus Mischprodukten von Weiß und Schwarz entstehen. 

'ÜJLü* 


Das gleiche Prinzip läßt sich auch auf dem Drucker verwirkli¬ 
chen. Dabei wählt man unterschiedliche Punktdichten, um so 
den Eindruck zu vermitteln, daß das Bild aus unterschiedli¬ 
chen Farben besteht. Für uns reicht es wegen der maximal 
vier darstellbaren Farben aus, anzunehmen, daß die Farben 
Weiß (Hintergrundfarbe), Schwarz, und zwei Graustufen 
bereits das ganze Bild darstellen können. Bild 8 zeigt ver¬ 
schiedene Rastermuster. 

So steht ein Multicolor-Bild 
im Speicher 

Wieder wird über die Grafik ein Raster gelegt, welches das . 
ganze Bild in einzelne Blöcke aufteilt. Eine Blockreihe 
besteht ebenfalls wieder aus 40 Blöcken. Ein Block ist in Bild 
9 vergrößert. Zu erkennen ist die Struktur der Bitpaare, so 
daß im Prinzip eine Matrix vorliegt, mit der 4 Punkte in X-Rich- 
tung und 8 Punkte in Y-Richtung dargestellt werden können. 
Sie erhalten also eine 4 x 8-Matrix, die dann allerdings auch 
Informationen zur Farbe der einzelnen Punkte enthält. Zu fin¬ 
den ist nun ein Weg, der wieder Blöcke auswertet und zusätz¬ 
lich noch Farbinformationen in Form eines Rastermusters mit¬ 
liefert. 

Wie kann man nun die Informationen, die der Block beinhal¬ 
tet, verarbeiten? 

Betrachten Sie zum Beispiel das fünfte Byte des Blocks in 
Bild 4. In Multicolor-Darstellung setzt sich das Byte aus 4 Bit¬ 
paaren zusammen, von denen das erste (Bitpaar 00) mit der 
Farbe des Hintergrundes, das zweite (Bitpaar 11) in Farbe 3, 
das dritte wieder in der Hintergrundfarbe und das vierte (Bit¬ 
paar 10) in Farbe 2 dargestellt werden würde. Ein Programm 
muß nun dem Inhalt eines Bitpaares verschiedene Punktdich¬ 
ten zuoid.'. jn, die dann als Graustufen auf dem Papier wie¬ 
dergegeben werden. 


Graustufen mit dem Drucker 


Wenn davon ausgegangen wird, daß jedes Byte eines 
Blocks getrennt für sich ausgewertet wird, stellt sich einer¬ 
seits der Sachverhalt relativ einfach dar, andererseits muß 
aber mit entsprechender Berechnungszeit kalkuliert werden. 

Um ein gutes, kontrastreiches Bild entstehen zu lassen, 
muß die Punktdichte möglichst groß gewählt werden. Grafik¬ 
fähige Drucker bieten hierzu meist einen Bl-Mode »vierfache 
Dichte« an, mit dem eine genügend hohe Auflösung erzielt 
werden kann. Um das Bild nun möglichst im Maßstab 1:1 auf 
dem Drucker auszugeben, muß ein gesetzter Punktauf dem 
Drucker durch ein kleines Quadrat wiedergegeben werden. 
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Bild 10. Struktogramm zur Erstellung einer 
Multicolor-Hardcopy 
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Grundlagen 



Indem innerhalb eines solchen einzelnen Quadrates unter¬ 
schiedliche Punkte gesetzt werden, erhält man unterschied¬ 
liche Grauwerte. Betrachten Sie hierzu einmal das Programm 
in Listing 4. Ähnlich wie im Fall einer HiRes-Grafik beschäf¬ 
tigen wir uns mit der Umwandlung eines einzelnen Blocks. 
Die Bestimmungsformeln zur Positionsbestimmung eines 
Blocks sind identisch mit denen zur Positionsbestimmung 
eines HiRes-Blocks, die Auswertung dagegen erfolgt anders. 
Die Rastermuster in den Zeilen 160 bis 190 erzeugen bei der 
gewählten vierfachen Punktdichte bei Ausgabe auf dem 
Drucker jeweils ein kleines Quadrat, das einen gesetzten 
Punkt in entsprechendem Grauwert wiedergibt (weiß wird 
hier auch mit einem Grauwert identifiziert). Diese Raster¬ 
muster werden zu Beginn des Programms in ein Feld 
DRUCKMATRIX eingelesen. Danach wird wie üblich defi¬ 
niert, welcher Block des Grafikbildschirms ausgegeben wer¬ 
den soll. 

Während bei einer HiRes-Grafik die vertikalen Werte eines 
Blocks auf dem Bildschirm ausgegeben wurden, wird hier 
dagegen direkt der Drucker angesprochen, um das Prinzip 
der Umwandlung der Bitpaare in Rastermuster zu verdeutli¬ 
chen. Da die Informationen innerhalb eines Blocks byteweise 
verarbeitet werden und da natürlich nach dem ersten berech¬ 
neten Rastermuster für Byte 0 das zweite Rastermuster 
direkt unter dem ersten liegt, muß zusätzlich der Zeilenvor¬ 
schub entsprechend korrigiert werden. Dazu wird der Zeilen¬ 
vorschub auf zirka 6/216 Zoll gesetzt (siehe Zeile 270). Da 
weiterhin ein Byte des betrachteten Blocks aus vier Bit¬ 
paaren besteht, müssen selbstverständlich auch vier Raster¬ 
muster nebeneinander auf dem Drucker erzeugt werden. 


Das Bit-Rastermuster 


Weil das Rastermuster eines Bits aber schon aus acht 
Daten (siehe DATA-Zeilen) zusammengesetzt wird, werden 
also 32 Daten pro Byte an den Drucker gesendet. Daher 
erklärt sich die Sequenz CHR$(32);CHRS(0) in Zeile 300, 
durch die der Bl-Mode eingeschaltet wird und 32 Daten als 
reine Grafikdaten vom Drucker erwartet werden. Dann wird in 


den Zeilen 330 der Inhalt eines Bytes eines Blocks ermittelt 
und daraufhin in den Zeilen 340 bis 380 in seine Bitpaare 
zerlegt. 

Entsprechend dieser Zerlegung erhält die Variable 
RASTER einen Wert zwischen null und drei (wegen logischer 
Verknüpfungsoperationen). Durch die so zustande kommen¬ 
den Inhalte der Variable RASTER kann an den Drucker die 
passende Druckmatrix gesendet werden. Mit Byte 1 bis 7 
des gleichen Blocks wird genauso verfahren. Sie erhalten 
dadurch auf dem Drucker ein Rastermuster, dessen Ausse¬ 
hen von den Eingangsdaten abhängt. 


Der nächste Schritt: 
Ausgabe eines Multicolor-Bildes 

Ein Block besteht aus 8 untereinanderliegenden Bytes. 
Von diesen Blöcken stehen in einer Zeile 40 und ergeben so 
eine Blockreihe. Wenn wir nach dem oben beschriebenen 
Prinzip weiter vorgehen wollen, dann muß zunächst Byte 0 
von Block 1 berechnet werden. Daraufhin darf man jedoch 
nicht das zweite Byte des Blocks auswerten, sondern muß 
Byte 0 des Blocks 2 berechnen, da die nächste Information 
neben dem Byte 0 des Blocks 1 liegt. Man fährt nach diesem 
Auswertungsprinzip fort, bis Byte 0 des Blocks 40 einer 
Blockreihe berechnet ist und führt erst dann einen Zeilenvor¬ 
schub aus, der aber so bemessen sein muß, daß die folgen¬ 
den Punkte direkt an die vorhergehenden anschließen. 

Genauso wird jeweils Byte 1 bis 7 für alle Blöcke einer 
Reihe ausgewertet und daraufhin mit der nächsten Blockzeile 
fortgefahren. Es ergibt sich ein Algorithmus, der vollständig 
durch das Struktogramm in Bild 10 beschrieben wird. Dieses 
Struktogramm wurde in Listing 5 in ein Basic-Programm um- 
g-' etzt. Wieder werden Sie in wesentlichen Teilen die Über¬ 
einstimmungen zum Programm zur Berechnung eines Blocks 
im Multicolor-Modus erkennen. 

Als Ergebnis Ihrer Bemühungen dürften Sie eine Hardcopy 
Ihres im Computer befindlichen Bildes erhalten, das etwa so 
wie das Beispiel in Bild 1 aussieht. 


Auf ein Wort: Basic 


Nun kennen Sie zwar die Geheimnisse, die es Ihnen ermög¬ 
lichen, selbst hochauflösende Grafiken auf dem Drucker aus¬ 
zugeben, aber spätestens wenn Sie eines der beiden Pro¬ 
gramme aus Listing 3 oder 4 eintippen und anschließend 
starten, wird Ihre Freude gedämpft sein, denn der Computer 
macht seinem Namen alle Ehre: er rechnet. Die Berechnun¬ 
gen nehmen aber so viel Zeit in Anspruch, daß man mitunter 
die Geduld verliert. Was hier also wünschenswert erscheint, 
ist eine Programmiersprache, die die ganze Sache etwas 
beschleunigt. Das naheliegendste: Benutzung von Maschi¬ 
nensprache. Dadurch verkürzt sich zum Beispiel die Ausgabe 
einer HiRes-Grafik auf 30 Sekunden (etwa durch das in der 
64’er-Ausgabe 8/84 auf Seite 83 veröffentlichte Listing). Das 
werden Sie zu schätzen wissen, wenn Sie einmal das ent¬ 
sprechende Basic-Programm haben laufen lassen und dann 
die Maschinenroutine dagegenhalten. 

Wenn Sie also Maschinensprache beherrschen und nun 
das Prinzip der Grafikausgabe auf dem Drucker verstehen, 
empfehle ich Ihnen, eine Ihren Erfordernissen angepaßte 
Maschinenroutine zu schreiben, um Grafik auf dem Drucker 
auszugeben. 

Deshalb gebe ich hier dem interessierten »Maschinen¬ 
spracheprogrammierer Informationen über eine möglichst 
einfache Ansteuerung des Druckers. Dazu zunächst eine 
Liste aller verwendbaren Systemroutinen und Zero-Page- 
Adressen: 
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Grundlagen 


BSOUT 

SFFD2 

Ausgabe eines Bytes auf aktivem 
Kanal 

OPEN 

$FFC0 

Eröffnen eines Files auf dem 
Drucker 

CKOUT 

SFFC9 

Ausgabe auf definiertem Kanal 
einleiten 

CLRCH 

SFFCC 

Ausgabe wieder auf Standard 
zurücksetzen 

CLOSE 

$FFC3 

Schließen eines Files auf dem 
Drucker 

SETPAR 

$FFBA 

Setzen der Parameter für OPEN 

LAENGE 

$B7 

für die Länge eines Strings bei 
OPEN 


Bevor Sie ein File auf dem Drucker eröffnen, ist dem Com¬ 
puter erst mitzuteilen, welche Filenummer, welche Primär¬ 
adresse und welche Sekundäradresse für das zu öffnende 
File zu verwenden sind. Da insbesondere beim Öffnen keine 
Zeichenkette an den Drucker zu senden ist, muß zunächst 
einmal das Flag LAENGE auf Null gesetzt werden: 

LDA #0 
STA LAENGE 

Daraufhin wird in den Akku die Filenummer, in das X- 
Register die Primäradresse des Druckers (normalerweise 4) 
und in das Y-Register die Sekundäradresse eines Files 
geladen, das dann später durch OPEN eröffnet wird. Zuerst 
müssen aber mit der Systemroutine SETPAR die Werte für 
einen OPEN-Befehl gesetzt werden, bevor die OPEN- 
Routine angesprungen werden darf. 

LDA #Filenummer 
LDX #Primäradresse 

LDY # Sekundäradresse S5Cf 

JSR SETPAR 
JSR OPEN 

Damit ist ein Kanal für die Ausgabe auf dem Drucker 
definiert. Die eigentliche Ausgabe auf dem Drucker wird 
durch das nochmalige Laden der Filenummer in das X- 
Register und das Anspringen der Systemroutine CHKOUT 
eingeleitet. 

LDX #Filenummer 
JSR CHKOUT 

Danach kann man Zeichen, die im Akku stehen, mittels der 
Routine BSOUT auf dem Drucker ausgeben. 

LDA #auszugebendes Zeichen 
JSR BSOUT 

Durch diese Routine wird die Ausgabe, die mittels der 
Routine BSOUT normalerweise auf dem Bildschirm erfolgen 
würde, auf den Drucker umgeleitet. Das heißt unter 
anderem, daß dann während dieser Umleitung keine 
Zeichenausgabe auf dem Bildschirm vorgenommen werden 
kann. Wollen Sie die Umleitung wieder aufheben, so können 
Sie dies mit Hilfe von CLRCH erreichen: 

JSR CLRCH 

Diese Systemroutine setzt die Ausgabe auf den Bildschirm 
(und die Eingabe auf die Tastatur) zurück. Beachten Sie bitte, 
daß das Druckerfile noch nicht geschlossen ist und Sie 
jederzeit wieder mit der beschriebenen Syntax bei der 
Systemroutine CHKOUT die Ausgabe erneut umleiten 
können. 

Das Druckerfile schließen können Sie mit der Routine 
CLOSE. Dazu laden Sie die Filenummer in den Akku: 

LDA # Filenummer 
JSR CLOSE 


Danach ist das Drucker-File ordnungsgemäß geschlossen. 
So, damit hätten wir unsere umfangreiche Expedition in das 
Gebiet der Grafikumsetzung für Druckausgaben abge¬ 
schlossen. Ich hoffe, daß Sie Ihnen ein wenig Spaß gemacht 
und Ihr Interesse an der Problematik geweckt hat. Ich 
wünsche Ihnen jedenfalls viel Erfolg bei der Programmierung 
einer eigenen Grafikroutine, sei es nun in Basic oder einer 
anderen Programmiersprache. 

(Frank Lonczewski/ev) 


100 REM ****«»»*»*»**»»»»«*********** <112> 

110 REM * * <159> 

120 REM * HIRES-BILD VERSCHIEBUNG « <174> 

130 REM * * <179> 

140 REM ***************************** <152> 

150 DATA 165,001,072,169,000,133,251,133 <140> 

160 DATA 253,169,032,133,254,120,169,052 <247> 

170 DATA 133,001,162,032,160,000,177,251 <205> 

1S0 DATA 145,253,200,208,249,230,252,230 <244> 

190 DATA 254,202,208,240,104,133,001,088 <020> 

200 DATA 096 <176> 

210 FOR 1=4096 TO 4136:READ A:POKE I,A:PS= 

PS+AsNEXT I <023> 

220 IF PS06115 THEN PR INT" PRUEFSUMMENFEHL 

ER“:STOP <158> 

230 FOR 1=1 TO 7:PRINT"{CLR >GRAFIKBILDSCHI 

RM:";I <230> 

240 PRINT“{DOWNISTARTADRESSE:“I*B192:POKE 

252,1*32 <253> 

250 SYS 4096:GOSUB 280:PRINT“{CLRV <132> 

260 POKE 53265,PEEK(53265)OR 32:P0KE 53272 

,PEEK<53272)OR 8:GOSUB 280 <002> 

270 POKE 53265,PEEK(53265)AND 223:POKE 532 

72,PEEK(53272)AND 247:NEXT I:END <20B> 

280 FOR J=1 TO 2000:NEXT J:RETURN <108> 


© 64'er 

Listing 1. HiRes-Bildverschiebung. Bei der Eingabe bitte 
den Che^jummer 64 in diesem Heft beachten. 


100 REM ******************************* <238> 

110 REM * * <159> 

120 REM * MATRIX- UMRECHNUNGSPROGRAMM * <165> 

130 REM * * <179> 

140 REM ******************************* <022> 

150 INPUT"BASIS (X*8192> BASIS <202> 

160 INPUT-'ZEILE (0-24) {3SPACEJ“; ZEILE <008> 

170 INPUT"BLOCK (0-39){3SPACEJ“;BLOCK <114> 

180 DIM BYTE(7) <237> 

190 FOR 1=0 TO 7 <003> 

200 BYTE(I)=PEEK(BAS1S+ZEILE*320+BLOCK*8+I 

) < 050 > 

210 NEXT I:PRINT:PRINT"AUSGABE DER BERECHN 

ETEN WERTE:":PRINT <07B> 

220 FOR 1=0 TO 7:REM 7 BYTES VERTIKAL <191> 

230 QUTPUT=0:FOR 10=0 TO 7 <017> 

240 OUTPUT=OUTPUT—((BYTE(10)AND 2t(7-I>)>0 

)*2T(7-10):NEXT 10 <017> 

250 PRINT OUTPUT:NEXT I <147> 

© &«'«•«- 


Listing 2. Matrix-Umrechnungsprogramm. Bei der 
Eingabe bitte den Checksummer 64 in diesem Heft 
beachten. 


100 REM******************************** <150> 
110 REM* * <159> 
120 REM* HIRESBILDAUSGABE AUF DRUCKER * <170> 
130 REM* * <179> 
140 REM******************************** <190> 
150 INPUT“BASIS (X*8192) BASIS:REM EINGA 

BE DER BASIS <074> 
160 OPEN 1,4,4:REM EROEFFNEN DES DRUCKERS 

MIT LINEARKANAL =>SEKUNDAERADRESSE 4 <148> 
170 PRINT#!,CHR*(27);"3";CHR*(24);:REM ZEI 

LENVORSCHUB AUF 24/216" <091> 
180 DIM BYTE(7) <237> 
185 FOR J=0 TO 24:REM ZEILEN 1-25 <1B2> 


Listing 3. HiRes-Bildausgabe auf Drucker. 
Bitte beachten Sie den Checksummer-Artikel. 










Grundlagen 


186 PRINT# 1,CHR*(27);"K";CHR*(64);CHR*(1); 

:REM SENDEN DES CODES FUER HIRES EIN <160> 

187 FÜR K=0 TO 39:REM BLOECKE 1-39 <006> 

190 FOR 1=0 TO 7:REM AKTUELLER BLOCK UMREC 

HNEN <150> 

200 BYTE(I> =FEEK(BASIS+J*320+K*8+I) <118> 

210 NEXT I <03B> 

220 FOR 1=0 TO 7:REM 7 BYTES VERTIKAL <191> 

230 OUTPUT=0:FOR 10=0 TO 7 <017> 

240 OUTPUT=OUTPUT— C(BYTE(10)AND 2t(7-I>>>0 

> *2t(7-10):NEXT 10 <017> 

250 PRINT#1,CHR4(OUTPUT);;NEXT I:REM BLOCK 

AUSGEBEN, ENDE BLOCKUMRECHNUNG <218> 

260 NEXT K:REM ENDE BLDECKE EINER REIHE <232> 

270 PRINT#1,CHR*(10):REM ZEILENVORSCHUB <018> 

280 NEXT JtREM ENDE SCHLEIFE EINER REIHE <0B3> 

290 PRINT#1,CHR*(27)"2":REM ZEILENVORSCHUB 

WIEDER AUF 1/6" BRINGEN <221> 

300 CLOSE 13 REM SCHLIESSEN DRUCKERKANAL <1B4> 


© 64'er 

Listing 3. HiRes-Bildausgabe auf Drucker. (Schluß) Bei 
der Eingabe bitte den Checksummer 64 in diesem Heft 
beachten. 


100 

REM ***************************** 

< 112> 

110 

REM * 


* 

< 159> 

120 

REM * 

MULTICOLORMATRIX * 

<226> 

130 

REM * 

UMRECHNUNGSPROGRAMM * 

<135> 

140 

REM * 


* 

<1B9> 

150 

REM ***************************** 

<162> 

160 

DATA 0,0 

,0,0,0,0,0,0:REM 

RASTERMUSTER 



BITPAAR 

(00) 


<1B9> 

170 

DATA 2,2 

,1,1,2,2,1,1:REM 

RASTERMUSTER 


180 

BITPAAR 
DATA 2,2 

(01) 

.0.0.1.1.0.0:REM 


< 109> 

BITPAAR 

(10) 

<B74> 

190 

DATA 3,3 

,3,3,3,3,3,3:REM 

RASTERMUSTER 



BITPAAR 

(11) 


<220> 


200 DIM DRUCKMATRIX(3,7):REM DREI RASTERMU 

STER MIT JEWEILS 7 DATEN <128> 

210 FOR 1=0 TO 3 <021> 

220 FOR 10=0 TO 7 <026> 

230 READ DRUCKMATRIX(1,10) <048> 

240 NEXT 10,1 <030> 

250 INPUT"BASIS (X»8192> ";BASIS <046> 

251 INPUT"ZEILE (0—24)<3SPAC.E>"; ZEILE <099> 

252 INPUT"BLOCK (0-39)C3SPACE>";BLOCK <196> 

260 OPEN 1,4,4:REM EROEFFNEN DES DRUCKERS 

MIT LINEARKANAL =>SEKUNDAERADRESSE 4 <250> 

270 PRINT#1,CHR*(27);"3”;CHR*(5);:REM ZEIL 


ENVORSCHUB AUF 6/216" <034> 

290 FOR REIHE=0 TO 7 :REM REIHEN EINES BLO 

CKS <025> 

300 PRINT#1,CHR*(27>;"Z";CHR*(32);CHR*(0 )5 <033> 
310 REM BIMODE 4—FACHE DICHTE EIN (MAX 192 

0 PUNKTE) <045> 

330 BYTE=PEEK <BASIS+ZEILE*320+BLOCK*8+REIH 

E> <031> 

340 FOR 1=6 TO 0 STEP-2:REM 4 BITPAARE AUS 

ZUWERTEN <166> 

350 RASTER=-((BYTE AND 2t(1+1))>0)*2-((BYT 

E AND 2tI)>0) <169> 

360 FOR 10=0 TO 7 <168> 

370 PRINTB1,CHR#(DRUCKMATRIX(RASTER,10));: 

REM DRUCKMATRIX AUSGEBEN <050> 

380 NEXT 10,1:REM AUSWERTUNG ENDE <153> 

400 PRINT41,CHR*(10):REM ZEILENVORSCHUB UM 

6/216" <057> 

410 NEXT REIHE:REM NAECHSTE DES BLOCKS BEA 

RBEITEN < 107> 

420 PRINTD1,CHR*(27) 5 "2“:REM ZEILENVORSCHU 

B WIEDER AUF 1/6" BRINGEN <198> 

430 CLOSE 1 <187> 


© G4'er 

Listing 4. Umrechnungsprogramm für Multicolor-Matrix. 
Bei der Eingabe bitte den Checksummer 64 in diesem 
Heft beachten. 


100 REM ***************************** <112> 

110 REM * * <159> 

120 REM * MULTICOLORBILDAUSGABE * <076> 

130 REM » AUF DRUCKER * <013> 

140 REM * * <189> 

150 REM ***************************** <162> 

160 DATA 0,0,0,0,0,0,0,0:REM RASTERMUSTER 

BITPAAR (00) <189> 

170 DATA 2,2,1,1,2,2,1,1:REM RASTERMUSTER 

BITPAAR (01) <109> 

180 DATA 2,2,0,0,1,1,0,0:REM RASTERMUSTER 

BITPAAR (10) <074> 

190 DATA 3,3,3,3,3,3,3,3:REM RASTERMUSTER 

BITPAAR (11) <220> 

200 DIM DRUCKMATRIX(3,7):REM DREI RASTERMU 

STER MIT JEWEILS 7 DATEN <128> 

210 FOR 1=0 TO 3 <021> 

220 FOR 10=0 TO 7 <026> 

230 READ DRUCKMATRIX(1,10) <048> 

240 NEXT 10,1 <030> 

250 INPUT"BASIS (X*8192> "jBASIS <046> 

260 OPEN 1,4,4:REM EROEFFNEN DES DRUCKERS 

MIT LINEARKANAL = >SEKUNDAERADRESSE 4 <250> 

270 PRINT#1,CHR*(27);"3";CHR*(5);:REM ZEIL 

ENVORSCHUB AUF 5/216" <161> 

2B0 FOR ZEILE=0 TO 24:REM ZEILEN <009> 

290 FOR REIHE=0 TO 7 :REM REIHEN EINES BLO 

CKS <025> 

300 PRINT#1,CHR*(27); “Z";CHR*(0);CHR*(5)j <184> 
310 REM BIMODE 4—FACHE DICHTE EIN (MAX 192 

0 PUNKTE) <045> 

320 FOR BLOCK=0 TO 39:REM FUER ALLE BLOECK 

E <255> 

330 BYTE=PEEK(BASIS+ZEILE*320+BLOCK*8+REIH 

E) <031 > 

340 FOR 1=6 TO 0 STEP-2:REM 4 BITPAARE AUS 

ZUWERTEN <166> 

350 RASTER=-((BYTE AND 2t(1+1>)>0)*2-((BYT 

E AND 2tl)>0) <169> 

360 FOR 10=0 TO 7 <168> 

370 PRINT#1,CHR*(DRUCKMATRIX(RASTER,10)>;: 

REM DRUCKMATRIX AUSGEBEN <050> 

380 NEXT 10,1:REM AUSWERTUNG ENDE <153> 

390 NEXT BLOCK <198> 

400 PRINT#1, CHR*(10):REM ZEILENVDRSCHUB <14B> 
410 NEXT REIHE,ZEILE <020> 

420 PRINTttl,CHR*(27);"2":REM ZEILENVORSCHU 

B WIEDER AUF 1/6" BRINGEN <198> 

430 CLOSE 1 <187> 


© &#'«• 

Listing 5. Multicolor-Bildausgabe auf Drucker. Bei der 
Eingabe bitte den Checksummer 64 in diesem Heft 
beachten. 
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Tips & Tricks 


Funktionen 
auf Tasten¬ 
druck 

Mit diesem Beitrag zeigen wir Ihnen, 
wie auf Tastendruck beliebige Funk¬ 
tionen oder Programme auch wäh¬ 
rend eines Programmiaufs gestartet 
werden können. Egal ob es sich nun 
um ein Basic- oder Maschinenpro¬ 
gramm handelt. 

Dieser Artikel soll Ihnen das Thema »Funktionen« anhand 
eines Beispiels näherbringen. Das Beispielprogramm können 
Sie mit etwas Assemblerkenntnis auch für Ihre Programme 
verwenden. Vorschlag: Der Fl-Taste wird eine Funktion zuge¬ 
ordnet. Durch Drücken der Fl-Taste soll jederzeit das Direc¬ 
tory einer Diskette am Bildschirm gezeigt werden, ohne daß 
ein im Speicher vorhandenes Programm gelöscht wird. Wäh¬ 
rend das Directory geladen wird, soll der Bildschirmrahmen 
die Farbe des Hintergrundes annehmen. 

Es wurden schon viele solcher Utilities veröffentlicht. Diese 
Programme werden aber im Regelfall durch Drücken der 
STOP/RESTORE-Tasten wieder abgeschaltet. Sollen diese 
Routinen dagegen gewappnet sein, so versagen sie spä¬ 
testens nach einem Reset. Im Gegensatz zu diesen »Billig¬ 
methoden« soll aber unsere Directory-Funktion der Fl-Taste 
auch nach einem Reset erhalten bleiben. 

Um derartige Anforderungen zu realisieren, müssen einige 
Betriebssystemroutinen zumindest angeschnitten werden. 
Die Wichtigste ist die Interruptroutine des C 64. Die Interrupt¬ 
routine ist ein computerinternes Programm, das sehr oft 
angesprochen wird. Befindet sich der Computer im »Ready«- 
Modus, wird die Interruptroutine beispielsweise alle 1/60 
Sekunde durchlaufen. Wird der C 64 in Anspruch genom¬ 
men, etwa durch Diskettenoperationen, wird dieses Pro¬ 
gramm jedoch seltener bearbeitet. Der Interrupt erfüllt viele 
Aufgaben. Er stellt beispielsweise die Uhrzeit (TI,TI$) nach, 
läßt den Cursor blinken und übernimmt die Tastaturabfrage. 
Das Interruptprogramm befindet sich ab Adresse SEA31 im 
Betriebssystem. Der Computer sucht sich diese Adresse 
über einen Wegweiser. Dieser Wegweiser steht bei Adresse 
$0314 und $0315 in der Zero-Page. Ein solcher Wegweiser 
wird im Fachjargon als Vektor bezeichnet. Da sich der Vektor 
im RAM befindet, kann dieser verändert werden. Das heißt, 
daß der Interrupt »umgeleitet« werden kann. Doch davon 
später. 

Wie funktioniert eine Modul¬ 
erkennung? 

Eine zweite gewichtige Betriebsroutine ist die Modulerken¬ 
nung. Diese benötigt man, damit die geplante Funktion der 
Fl-Taste »resetfest« wird und zugleich immun gegen die 
Tastenkombination STOP/RESTORE. Die Kennungs-Routine 
überprüft, ob sich ein Steckmodul im Expansion-Port befin¬ 


det. Und zwar an der Codefolge »cbm80« ab Adresse $8004. 
Diese ASCII-Codefolge entspricht den Hex-Zahlen 
$C3,$C2,$CD,$38 und $30. Findet der Computer diese 
fünf Zahlen ab Adresse $8004, werden sowohl bei einem 
Reset als auch beim Drücken der Restore-Taste nicht mehr 
die Standardroutinen angesprochen. Der C 64 springt die 
Adressen an, deren Vektoren in $8000/8001 und 
$8002/8003 stehen. Der erste Vektor ist der Resetvektor. 
Der Resetvektor zeigt auf die Adresse, die nach einem Reset 
angesprungen wird. Nach STOP/RESTORE holt sich der C 64 
die Sprungadresse des NMI-Vektors aus den Speicherzellen 
$8002 und 8003. Ist kein Modul eingesteckt, ist der Adreß- 
bereich ab $8000 als RAM freigegeben. Wenn man nun ab 
Adresse $8004 die oben genannte Codefolge ablegt, nimmt 
der C 64 an, daß sich ein Modul im Expansion-Port befindet. 
Durch diesen Trick kann der Reset- und NMI-(RESTORE-) 
Vektor verändert werden. 
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Tips & Tricks 











Da unser Programm wegen dieses Tricks mitten im Basic- 
Speicher steht, muß es vor dem Überschreiben durch lange 
Basic-Programme oder Stringvariablen gesichert werden. 
Dies erreicht man, wenn man den Zeiger für den Stringspei¬ 
cher $33-$34 und den Zeiger für die Speichergrenze auf 
$8000 setzt. 

Doch nun zum Programm selbst. Nach dem Eingeben des 
Programmes mit Hilfe des MSE kann es mit SYS 32819 oder 
mit einem Reset (SYS 64738) initialisiert werden. Dabei wird 
der Interrupt auf die Adresse $8046 umgeleitet und das Pro¬ 
gramm vor dem Überschreiben geschützt. Solange der Inter¬ 
ruptvektor verändert wird, muß der Interrupt gesperrt wer¬ 
den. Das heißt, daß während dieser Zeit die Interruptroutine 
nicht angesprungen werden darf. Ein Interrupt muß auch ver¬ 
hindert werden, wenn gerade ein Interruptprogramm stattfin¬ 
det. Die Katze soll sich schließlich nicht in den eigenen 
Schwanz beißen. Um einen Interrupt zu sperren, gibt es 
einen speziellen Assemblerbefehl, den SEI (Set Interrupt 
Flag). Ist das IRQ-Flag (IRQ, Interrupt Request) gesetzt, läßt 


Damit die Funktions-Belegung der Fl-Taste nicht durch 
einen Reset zerstört werden kann, wurde das Prinzip der 
Modulerkennung genutzt. Der Resetvektor zeigt auf die 
Adresse $800A. Ab dieser Adresse wurde einfach der 
Anfang des Originalresets nachgebildet. Nachdem der 
Arbeitsspeicher neu initialisiert und alle Vektoren (auch Inter¬ 
ruptvektor) mit ihren Standardwerten belegt wurden, springt 
»unser« Reset nach $8033 und initialisiert wieder die 
Fi-Taste. Anschließend wird der Prozessor wieder auf seinen 
gewohnten Weg geschickt (SFCFB). 


Unempfindlich gegen Reset 


Der NMI-Vektor wurde auf die Adresse $801F »verbogen«. 
Ab dieser Adresse ist der Original-NMI nachgebaut. Bis auf 
den Sprung an die Adresse $FD15, der weggelassen wurde. 
Dort wird nämlich die Interruptadresse korrigiert und die 
Fl-Taste abgeschaltet, was die ganzen Anstrengungen 


sich der 6502-Prozessor nicht mehr durch einen Interrupt 
unterbrechen, um ein anderes Programm auszuführen. Um 
den Interruptvektor auf unser Beispielprogramm zu richten, 
muß in Speicherzelle $0314 das Lowbyte ($46) und in 
$0315 das Highbyte ($80) unserer Programmadresse 
($8046) geschrieben werden. Danach kann das Interrupt¬ 
flag wieder gelöscht werden. Der Assemblerbefehl dazu lau¬ 
tet CLI (Clear Interrupt Flag). Wird nun ein Interrupt ausgelöst 
(von den CIAs), springt der Prozessor zur Adresse $8046. 
In unserem Beispiel setzt dort die Abfrage der Fl-Taste ein. 
Ist sie gedrückt oder nicht? Eine Antwort darauf liefert die 
Adresse $CB in der Zero-Page. Denn der Inhalt von $CB gibt 
Auskunft darüber, welche Taste zuletzt gedrückt wurde. War 
es die Fl-Taste, steht dort eine »4«. 

Den Code einer jeden Taste können Sie mit der. folgenden 
Basic-Anweisung leicht ermitteln: 

FOR 1 = 1 TO 10000 : PRINT PEEK(203) : NEXT I 

Drücken Sie danach die gewünschte Taste, erscheint die 
zugehörige Zahl am Bildschirm. 

Das Beispielprogramm reagiert nun folgendermaßen: Ist 
die Fl-Taste nicht gedrückt, also der Inhalt der Speicherzelle 
ungleich 4, wird in Speicherzelle $8009 der Wert $FF 
geschrieben und die Adresse $EA31 angesprungen. Wie 
schon erwähnt, stehtab $EA31 die normale IRQ-Routine des 
C 64. Warum in Speicherzelle $FF geschrieben wird, soll 
später erklärt werden. 

Wurde die Fl-Taste gedrückt, wird das Beispieiprogramm 
bearbeitet. Dabei verändert der Bildschirm seine Rahmen¬ 
farbe und das Unterprogramm »Directory« ab Adresse 
$8074 wird abgearbeitet. Ab Adresse $8074 kann jedes 
beliebige Unterprogramm stehen. Voraussetzung ist nur, daß 
dieses mit RTS abgeschlossen wird. In diesem Beispiel ist es 
eben das Zeigen eines Diskettendirectories. 

Stellen Sie sich jetzt vor, es würde kein Directory gelesen, 
sondern irgendeine Funktion aufgerufen, die einen sehr klei¬ 
nen Zeitbedarf hat. Eventuell eine Einstellung von Bild¬ 
schirmfarben, wo verfügbare Farben durch Drücken der 
Fl-Taste gezeigt werden. Alle 1/60 Sekunde würde dann die 
Farbe wechseln. Unmöglich! Deshalb ist in die Tastenabfrage 
noch ein Trick eingebaut, der das verhindert. Dazu wird nach 
dem Drücken von Fl ein Flag gesetzt (Speicherzelle $8009 
auf $00) und erst dann die Funktion aufgerufen. Ist beim 
nächsten Interrupt $8009 immer noch »0«, so heißt das, daß 
die Fl-Taste in der Zwischenzeit noch nicht losgelassen 
wurde. Die Funktion soll dann nicht nochmal ausgeführt, 
sondern mit der originalen IRQ-Routine fortgefahren werden. 

Wäre die Fl-Taste in der Zwischenzeit losgelassen worden, 
hätte in der Speicherzelle $CB eine Änderung stattgefun¬ 
den. Unsere IRQ-Routine hätte das erkannt und in $8009 
den Hex-Wert $FF geschrieben. 


zunichte machen würde. 


^ Start ^ 


Initialisieren 


Interrupt-Vektor 
auf $ 8046 
setzen 


; 


Zeiger für 
Stringspeicher 
auf $ 8000 setzen 


Zeiger für 
Speichergrenze 
auf $ 8000 setzen 


^ Ende ^ 


Flußdiagramm zur 
Initialisierung 


Das Beispielprogramm kann natürlich beliebig erweitert 
oder geändert werden. Es wäre zum Beispiel möglich, die 
Buchstabentasten über die CTRL-Taste mit einer vierten 
Funktion zu belegen. Ähnlich SHIFT/CBM. Ein anderer Ein¬ 
satz wäre der Aufruf einer Hardcopy. Versuchen Sie einfach 
mal, eine Hardcopyroutine über ????? aufzurufen, statt die 
Directory-Funktion. Sie müssen dazu nur den JSR 
$8074-Befehl ab Adresse $806A so ändern, daß die von 
Ihnen gewählte Routine abgearbeitet wird. Der Befehl lautet 
dann vielleicht JSR $COOO. Haben Sie keine Angst vor 
Maschinensprache! Experimentieren Sie doch einfach mit 
diesem Programm. Eine einfache Übung: Stellen Sie mit der 
Fl-Taste die Farben ein. 

(Christian Quirin Spitzner/hm) 


Programm : directory 


8000 80ef 


8000 

s 

0a 

80 

1* 

80 

c3 

c2 

cd 

38 

lc 

8008 

■ 

30 

F -f 

8e 

16 

d0 

20 

a3 

Fd 

37 

8010 

: 

20 

50 

Fd 

20 

b7 

e4 

20 

15 

29 

8018 

• 

• 

Fd 

20 

33 

80 

4c 

Fb 

Fc 

20 

db 

8020 

: 

bc 

F6 

20 

el 

FF 

d0 

09 

20 

86 

8028 


a3 

Fd 

20 

18 

e5 

6c 

02 

a0 

80 

8030 

■ 

4c 

72 

Fe 

78 

a2 

46 

a0 

80 

64 
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B038 

8e 

14 

03 

8c 

15 

03 

58 

a9 

41 

8040 

80 

85 

34 

85 

38 

60 

a5 

cb 

f 5 

8048 

c9 

04 

f0 

08 

a9 

ff 

8d 

09 

33 

8050 

80 

4c 

31 

ea 

ad 

09 

80 

c9 

59 

8058 

ff 

dB 

f 6 

a9 

00 

8d 

09 

80 

44 

8060 

ad 

20 

d0 

48 

ad 

21 

d0 

Bd 

9d 

8068 

20 

d0 

20 

74 

80 

68 

8d 

20 

49 

8070 

d0 

4c 

31 

ea 

a9 

01 

20 

c3 

bb 

8078 

ff 

a9 

24 

8d 

f0 

03 

a9 

30 

35 

8080 

8d 

fl 

03 

a9 

01 

a2 

08 

a0 

82 

8088 

00 

20 

ba 

ff 

a9 

02 

a2 

f0 

5e 

8090 

a0 

03 

20 

bd 

ff 

20 

C0 

ff 

76 

8098 

a9 

40 

20 

90 

ff 

a2 

01 

20 

d5 

80a0 

c6 

ff 

20 

90 

ff 

20 

cf 

ff 

C0 

80a8 

20 

cf 

ff 

20 

cf 

ff 

20 

cf 

dl 

B0b0 

ff 

c9 

00 

f 0 

31 

a9 

01 

85 

21 

80b 8 

cc 

a2 

01 

20 

c6 

ff 

20 

cf 

a6 

80c0 

ff 

a8 

20 

cf 

ff 

48 

98 

aa 

0f 

80c B 

68 

20 

cd 

bd 

a9 

20 

20 

d2 

2d 

80d0 

ff 

20 

cf 

ff 

c9 

00 

d0 

08 

c3 

80d8 

a9 

0d 

20 

d2 

ff 

b8 

50 

cb 

09 

80e0 

20 

d2 

ff 

bB 

50 

eb 

a9 

01 

8d 

80e8 

20 

c3 

ff 

20 

cc 

ff 

60 

00 

3c 


Listing zum Directory auf Tastendruck. Beachten Sie 
den MSE 


9000 

0a 

P« 




1 reset-vektor 

6002 

37 

80 




S nnl-vektor 

9004 

c3 

c 2 

cd 

38 30 


; cbmBB (bewirkt modul-»tart •) 

B009 

## 












reset 

BOUa 

Bo 

16 

dP 

stx 

SrtWt 6 


B00d 

20 

aZ 

fd 

J*r 

SftiaZ 


dB IM 

20 

50 

fd 

jsr 

*#d50 

! arbeltsspelcher lnltlal1 blcrcn 

301- 

20 

b7 

p4 

isr 

*e4b7 


9016 

20 

15 

fd 

J«r 

*#rt!5 

| hardwarw und 1/o v*kto ran catian/holan 

UUIV 

20 

33 

80 

jsr 

•B033 

; Initialisierung der fl-taste 

801c 

4c 

fb 

fc 

J«np 

»fcfb 

I zurueck rum original-reset 

8011 

20 

bc 

16 

Jsr 

*#6bc 

l flag fuor stop-taste setzen 

S022 

20 

el 

ff 


*f fei 

1 stop-laste Abfragen 

H075 

dB 

09 


Bno 

*80 3« 

I nicht yodrueckt, dann *0030 

8027 

20 

a3 

fd 

Jsr 

• fdal 

1 i/a initialisieren 

R02a 

20 

18 

«3 

J« r 

*•518 

: bildschirm loeschen (j/o in»tialisieren) 

802d 

6c 

02 

aO 

J»D 

<*a002) 

j zum basic-warmitart 

8030 

4C 

72 

fe 

J«P 

*fe72 

t »Heiter im orginal nmi 







Initialisierung der fl-taste 

8033 

78 



sei 


; setzen dos interrupt-dlssable-blt 

0034 

a2 

46 


1 dH 

• »46 


3036 

aP 

B0 


Idv 

• *63 


8030 

8* 

14 

03 

• tu 

*0314 

1 Interrupt au# adresse 

903b 

8c 

13 

03 

*ty 

*0315 

j *8046 setzen 

803* 

58 



cl 1 


| lfW«chon des interrupt-dissabl e-bit 

803f 

a9 

80 


1 da 

• *B0 

s programin vor ueberschreiben sichern 

8041 

85 

34 


5t a 

*34 

1 zelger fuer str1ngspeleher auf *8300 

9043 

85 

38 


bta 

*38 

; reiger speichergrenze auf *8303 

8045 

60 



rts 









erweiterung der Interrupts 

8046 

«5 

cb 


1 da 

*cb 

; aktuell» tarnte holen 

8048 

c9 

04 


emp 

1*04 

; = fl-taste ? 

604.1 

(0 

ftfl 


beq 

»8054 

| ja, dann *8054 

004c 

a9 

ff 


1 da 

• *ff 

; flag fuer 

804e 

Bd 

09 

00 

'-ta 

»8009 

1 f1—taste looachen 

8051 

4c 

31 

ea 

J»P 

Sea31 

; zurueck zum Interrupt 

805« 

ad 

Vtv 

80 

1 da 

*8039 

i fl-taste schon 1aenqer gedrueckt 7 

8057 

c9 

<# 


c«p 

»*ff 


0059 

dB 

#6 


hnn 

*8051 

1 ja. dann zurueck zu« Interrupt 

O0I,b 

-9 

00 


1 da 

■ *00 

1 setzt flag 

B05d 

8d 

09 

00 

sta 

•8009 

I fuor gedrueekte fl-taste 

6060 

ad 

20 

dB 

ldn 

*0020 

; rahmenfärbe lesen 

8063 

48 



pha 


; färbe auf Stapel legen 

8064 

ad 

21 

dB 

1 da 

»Ü021 

I hinterQrundfarbe lesen 

8067 

Bd 

20 

d0 

sta 

»d020 

; rahmen ungleichen! 

806a 

20 

74 

B0 

J*r 

*8074 

; beliebige funktion (z.b. directory) 

B06d 

69 



P>- 


; rahmenfarbe von stapo! holen 

90e e 

8d 

20 

dB 

bla 

*0020 

5 rahmenfarbe in den originalzustand 

8071 

4c 

31 

oa 


**a31 

1 zurueck zum Interrupt 







ausgefuehrt werden.) 

0074 

a9 

01 


1 da 

• *0! 


8076 

20 

c3 

ff 

jsr 

*ffc3 

| c1 ose 1 

8079 

a9 

24 


1 da 

•*2* 


907b 

Bd 

f0 

03 

sta 

*03fO 


B07e 

a9 

30 


1 da 

•*3« 


OflUB 

Od 

♦ 1 

03 

«t« 

*03« 1 


8083 

a9 

01 


1 da 

• *0! 


8085 

»2 

08 


1 dx 

• »08 


006/ 

aC 

00 


iav 

• *B0 


8089 

20 

b.» 

ff 

Jsr 

*f fba 

1 f11oparameter (1,0,0) setzen 

808c 

a9 

02 


1 da 

•*07 


R08» 

*2 

♦ 0 


1 dx 

• *f0 


8090 

aP 

07. 


ldy 

• *03 


809? 

20 

bd 

ff 

J *r 

*f fbd 

1 f 11 im«m»npar ameter (2,15,3) 

dvivr. 

*0 

cd 

ff 

jsr 

*1 »CM 

; open 

8090 

a9 

40 


1 da 

n*40 


809a 

20 

90 

ff 

Jsr 

*ff9e 

i Status setzen st*64 

BB9d 

a 2 

01 


1 dx 

B*0! 


B09« 

20 

c6 

ff 

Jsr 

*f fc6 

; einqabwqa* aet ■ 1 «oltei 

O0a7 

20 

90 

ff 

$nr 

«ff 90 

1 Status setzen 

ee-5 

20 

rf 

ff 

J« 

*f fcf 

; basin (Zeichen holen) 

903B 

20 

cf 

ff 

jsr 

»ffcf 

i basin (Zeichen holen) 

UBab 

20 

c # 

f f 

J*r 

*ffcf 

j Dänin (Zeichen holen) 

80ae 

20 

cf 

ff 

isr 

•ffcf 

t baoin (Zeichen holen) 

80b 1 

C9 

00 


cnp 

•*00 

j reichen = 0 ? 

80b 3 

f0 

31 


beq 

*80e6 

; ja, dann ende 


B0b5 

a9 

01 


1 da 

• *01 

80b 7 

85 

CC 


sta 

*cc 

80b 9 

•2 

01 


ldx 

•*01 

80bb 

20 

c6 

ff 

Jsr 

*ffc6 

8Bb e 

20 

cf 

ff 

Jsr 

• ffcf 

03c 1 

•8 



tey 


80c 2 

20 

Cf 

ff 

jsr 

*ffc# 

BBc 5 

48 



pha 


80c 6 

98 



tya 


BBc 7 

aa 



tax 


80c8 

68 



pla 


8®c9 

20 

cd 

bd 

Jsr 

*bdcd 

80CC 

a9 

20 


Ida 

4*70 

80c* 

20 

d2 

f« 

Jsr 

*1102 

B0dl 

20 

c# 

ff 

Jsr 

• ffcf 

O0d4 

c9 

00 


c«p 

• *00 

83 d 6 

da 

08 


bne 

*30e3 

O0dG 

a9 

Bd 


lda 

• *0d 

BOda 

20 

d2 

ff 

jsr 

*1102 

80dd 

b0 



Cl V 


BBde 

30 

cb 


bvc 

*ö0ab 

80e0 

N 

d2 

ff 

Jsr 

»f f d2 

B0o3 

ba 



cl V 


O0e4 

50 

eb 


bvc 

*O0dl 

SOo6 

a9 

01 


lda 

•*0i 

BBeB 

20 

C3 

ff 

jsr 

*1 IcS 

80eb 

20 

CC 

ff 

J*r 

*1 fcc 

80ee 

60 



rts 



I curoorblinken ausschalten 

; chkin BingabogBrao! * 1 setzen 
l basln (Zeichen holen) 

! abku ins v-register 
i basin (Zeichen holen) 
l zahl au# stapel legen 
I y->akku 
t akku->x 

: zahl vom Stapel holen 
I dezimal zahl ausgeben 

l leerZeichen aungeben 
; basin (seichen holen) 

I seichen • Bl ** 

; nein, dann zur zeichenausgabe 
; zeilenvorschub ausgeben 


I iMlchenausqabe 

l naechstes reichen holen istMdll 

I close 1 
S dreh 

I luruock zum Interrupt 


Das Quellisting zum Directory auf Tastendruck 


Star SG-10 
und Textomat 

Haben Sie Probleme, den Star SG-10 
mit Secus-Interface an Textomat an¬ 
zupassen? Verzweifeln Sie nicht, hier 
kommt die Lösung. 


Der erste und wichtigste Schritt ist die Eingabe folgender 
Basic-Kommandos: 

OPEN 4,4,25 < Return > 

PRINT:*'*. 

Die dabei verwendete Sekundäradresse »25« teilt dem 
Drucker mit, daß er den vollen Star-Zeichensatz fest einstel¬ 
len soll. Die PRINT-Anweisung muß gegeben werden, damit 
der Drucker den Lock-Zustand ausführt. Um diesen Status 
wieder aufzuheben, muß der Drucker ausgeschaltet werden. 

Als Zweites laden Sie Textomat wie gewohnt und nehmen 
im Menü-Punkt »Druckeranpassung« die entsprechenden 
Änderungen vor. 

Beim Punkt »Drucker« wählen Sie die »1«. Die ASCII-Werte 
entnehmen Sie dem Interface-Handbuch auf Seite 14 oder 
dem Star-Handbuch auf den Seiten 217 bis 223. Für den 
Bereich »Steuerzeichen« empfehle ich folgende Befehls¬ 
sequenzen: 


Zeichenabstand: dilO 1b4201 (Pica) 
di12 1b4202 (Elite) 
di15 1b4203 (entspricht 17 Zeichen/ 
inch = Schmalschrift) 

Zeilenabstand: abl 1b4106 (Izeiliger Abstand) 

ab2 1b410c (2zeiliger Abstand) 
ab3 1b4118 (3zeiliger Abstand) 

Die anderen Steuerzeichen können Sie leicht selbst einset- 
zen, wobei Sie den Seitenwechsel nicht mit dem Wert Oc 
belegen sollten, da der Drucker dann immer zwei Seiten vor¬ 
schiebt. 

Sie sollten auch noch beachten, daß die DIP-Schalter am 
Drucker richtig eingestellt sind. Im Interface-Handbuch steht 
zwar, daß die Schalter 2-2,2-3 und 2-4 auf OFF-Stellung sein 
sollen, ich habe aber die Erfahrung gemacht, sie besser in 
ON-Stellung zu lassen. Wichtigstes Argument hierfür ist das 
nochmalige Vorschieben um eine Zeile. Des weiteren stelle 
ich den 1. und 7. Schalter auf OFF. 

Ich hoffe, Sie freuen sich jetzt genauso wie ich an dem tollen 
Schriftbild Ihres SG-10 oder SG-15 in Verbindung mit dem 
Textverarbeitungsprogramm Textomat. 


(Klaus Croll/gk) 
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Zwei Quickies 

Kopfstand für Sprites und ein kleiner 
Zeicheneditor sind zwei Einzeiler, die 
sich in Programme einbinden lassen. 

Der folgende Einzeiler stellt ein Sprite auf den Kopf (bezie¬ 
hungsweise wieder auf die Füße): 

Kopfstand für Sprites 

FOR A = 958 TO 896 STEP—3.POKE A—2,PEEK(832 + L): 
POKE A—1,PEEK(833 + L):POKE A.PEEK (834 + L): 
L=L+3:NEXT 

Der Einzeiler kann nur dann als solcher eingegeben wer¬ 
den, wenn von der Möglichkeit Gebrauch gemacht wird, die 
(Basic-)Kurzbefehle einzutippen (siehe Anhang D im 
C 64-Handbuch). Sie können jedoch auch zwei Zeilen daraus 
machen. Das Sprite, das verändert werden soll, muß im 
Bereich 13 (Adresse 832-895) abgelegt sein; im Bereich 14 
(Adresse 896-958) steht nach Programmlauf das gedrehte 
Sprite beziehungsweise dessen Bitmuster. 

A = Laufvariable für FOR...NEXT-Schleife 
L = Zählvariable 

Da L nicht auf Null gesetzt wird, muß vermieden werden, 
diese Variable anderweitig im (Gesamt-) Programm zu ver¬ 
wenden, da es sonst zu unliebsamen Überraschungen kom¬ 
men kann. (Hans Joachim Neumann/gk) 


Zeichendefinitionen 

Folgendes kurze Programm wandelt ein am Bildschirm ent¬ 
worfenes Zeichen in Zahlen um und schreibt diese dann auf 
den Bildschirm. Im linken oberen Eck des Bildschirmes wird 
das Zeichen in einer 8 * 8-Matrix entworfen. Um einen gesetz¬ 
ten Punkt zu markieren, wird an die gewünschte Stelle ein 
Stern (»*«) geschrieben. 

X(0—7) =Zahl 0—7 
T Zähler der Reihe 

Y Zähler des Bits 

1031 =linke obere Ecke des Zeichens+ 7 (1024 + 7) 
42 Bildschirmcode für »*« — es können auch andere 

verwendet werden. 

Damit Sie nicht mit Abkürzungen arbeiten müssen, ist der 
Einzeiler auf zwei Zeilen aufgeteilt worden (Zeile 100 und 
110 ). 

Starten Sie das Programm mit RUN. In der oberen linken 
Ecke wird ein Raster von 8*8 Punkten gezeichnet und unter 
dem READY erscheint GOTO 100. Mit den Cursor-Tasten 
(nicht die RETURN-Taste verwenden) können Sie nun ein Zei¬ 
chen definieren, indem Sie anstelle eines Punktes ein »*« 
setzen. Wenn das Zeichen fertig ist, gehen Sie mit dem Cur¬ 
sor auf »GOTO 100« und drücken RETURN. Auf dem Bild¬ 
schirm werden jetzt die Daten dieses Zeichens angezeigt. 

Diese Daten können zum Erstellen eines eigenen Zeichen¬ 
satzes (auch für Spiele) verwendet werden. Ein manuelles 
Errechnen dieser Werte entfällt somit. 

(Wolfgang Horak/gk) 


7 REM ZEICHENDEFINIEREN IN DER OBEREN <107> 

8 REM LINKEN BILDSCHIRMECKE <I74> 

10 PRINT“{CLRJ"; <204> 

20 FÜR 1=1 TO 8 : PRINT".“ :NEXT <239> 

30 PRINT“C3D0WNJG0T0 100 “ <253> 

40 END <042> 

100 FOR T=0 TO 7:X(T)=0:FOR Y=7 TO 0 STEP- 

1:X(T)=X(T)-2tY*(PEEK<103l-Y+40*T> = 42 
>:NEXT Y <055> 

110 PRINT X(T) 5 :NEXT <200> 

6 G4'er 


3D-Darstellung 
in 19 Zeilen 

Das Programm stellt ein frei wählba¬ 
res, dreidimensionales Objekt auf 
dem Bildschirm dar, das durch 
Drücken der Funktionstasten gedreht 
werden kann. Simons Basic ist aller¬ 
dings Voraussetzung. 

Das Programm (Listing 1) wird nach Aktivierung von Simons 
Basic normal geladen und mit »RUN« gestartet. Danach muß 
die Datei angegeben werden, die die Daten für den darzustel¬ 
lenden Körper enthält. Bevor die Eingabe mit RETURN abge¬ 
schlossen werden kann, muß jedoch erst die Diskette mit der 
gewünschten Datei in das Laufwerk eingeführt werden. Sind 
alle Werte eingelesen, erscheint die Figur in Originalform auf 
dem Bildschirm. Sie kann nun durch Drücken der Funktions¬ 
tasten (ohne SHIFT) beliebig gedreht werden. Fl, F3 und F5 
bestimmen die Rotationsachse, während F7 einen Rich¬ 
tungswechsel bewirkt. 

Die Erzeugung von Figuren 

Die Daten für Figuren müssen in Form einer sequentiellen 
Datei (Typ SEQ) vorliegen. Eine Figur besteht dabei aus einer 
begrenzten Anzahl von Geradenstücken, die duch ihre 
Ar angs- und Endpunkte (x-, y- und z-Werte) gekennzeichnet 
sind. Jedes Geradenstück wird also durch sechs Zahlen 
bestimmt. Alle Geradenstücke werden unmittelbar hinterein¬ 
ander in die Datei geschrieben. Ein Endekennzeichen oder 
sonstige Zusatzangaben sind nicht erforderlich. 

Das Demonstrationsprogramm (Listing 2) erzeugt eine 
Datei mit dem Namen »PYR«, welche die Daten für eine Pyra¬ 
mide enthält. Durch Veränderung der DATA-Zeilen können 
auch andere Körper definiert werden. Die Koordinaten müs¬ 
sen jedoch so gewählt werden, daß sie nicht außerhalb des 
Bildschirmbereichs liegen und diesen auch nicht durch die 
Rotation zu verlassen drohen. Es sei dabei darauf hingewie¬ 
sen, daß die z-Achse in die Tiefe und die y-Achse nach oben 
zeigt. Als Orientierungshilfe kann die Demo-Pyramide ver¬ 
wendet werden. 

Darstellung eines Punktes 

Um einen Raumpunkt auf dem Bildschirm darstellen zu kön¬ 
nen, muß er zunächst an das zweidimensionale Koordinaten¬ 
system angepaßt werden. Es wird hierzu die Fluchtpunktper¬ 
spektive gewählt, die über die Strahlensätze herleitbar ist: 
x'=xf—(zf—z) * (xf—x)/zf 
y’—yf—(zf—z) * (yf—y)/zf 
x’ horizontale Bildschirmkoordinate 

y’ vertikale Bildschirmkoordinate 

x,y,z Koordinaten des Raumpuhktes 

xf,yf,zf Koordinaten des Fluchtpunktes 

Anwendungsmöglichkeiten 

Das Programm kann beispielsweise zur Darstellung und 
räumlichen. Drehung von Computergrafiken (dreidimensio¬ 
nale Funktionen, Gegenstände, Flächen etc.) verwendet wer¬ 
den. Die Erzeugung der Gebilde erfolgt dabei von einem 
unabhängigen Programm. Nach Erstellung der sequentiellen 
Datei kann das Ergebnis mittels des Rotationsprogramms 
betrachtet werden. Dazu kann es sinnvoll sein, noch einige 
Erweiterungen in das Programm einzubauen. Zum Beispiel 
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würden folgende zusätzlich eingegebenen Zeilen bei Über¬ 
schreitung des Bildschirmbereiches einen Abbruch verhin¬ 
dern und statt dessen die betreffenden Geraden nur bis an 
den Rand zeichnen: 

22 gosub 60 w 

60 dx=x-v:dy=y-r:mm=0.01:if dx#dy<>0 then mm=dy/dx 

62 if x<0 then y=y-mm#x:x=0 

64 if x> 320 then y=y-mm*(x-320):x=320 

66 if v<0 then r=r-mm#v:v=0 

68 if v>320 then r=r-mm*(v-320) :v=320 

70 if y<0 then x=x-y/mm:y=0 

72 if y>200 then x=x-y/ram:y=200 

74 if r<0 then v=v-r/mm:r=0 

76 if r>200 then v=v-(r-200)/mm:r=200 

78 if x<0 or x>320 or v>320 or v<0 then x=0:v=0 

80 if y<0 or y>200 or r<0 or r>200 then y=0:r=0 

82 retum 

Freilich nimmt ein derart ergänztes Programm beim LISTen 
mehr als eine Bildschirmseite ein, bietet aber bessere 
Anwendungsmöglichkeiten. 

Ein völlig anderer Aspekt wäre die bloße Verwendung der 
mathematischen Formeln zum Einbau in eigene Programme 
(beispielsweise Spiele). Dazu kann es unter Umständen 
erforderlich sein, sie in Maschinensprache zu übersetzen. 
Da aber dies bereits mit einfachen 16-Bit-Rechenroutinen 
und wenigen Tabellen bewerkstelligt werden kann, dürfte 
das für den erfahrenen Programmierer kein allzu großes 
Hindernis darstellen. 

Mathematisch gesehen: Das Problem der Rotation 

Um einen Körper von allen nur erdenklichen Perspektiven 
darzustellen, muß er im Raum gedreht werden. Die dazu 
notwendigen Berechnungen sind allerdings recht kompli¬ 
ziert und auch nicht im Rahmen eines extrem kurzen 
Programms realisierbar, will man den Körper — das heißt alle 
seine Eckpunkte — um eine beliebig im Raum schwebende 
Achse rotieren lassen. 

Verzichtet man jedoch auf eine beliebige Rotationsachse 
und beschränkt man sich auf den Sonderfall, daß diese zu 
einer der Achsen des Koordinatensystems (x-, y- oder z- 
Achse) parallel liegt, ergibt sich eine erhebliche Vereinfa¬ 
chung, die daraus resultiert, daß — bedingt durch die 
Parallelität — immer nur zwei Koordinatenangaben eines zu 
rotierenden Punktes verändert werden und somit das Pro¬ 
blem in der Ebene betrachtet werden kann. Konstant bleibt 
immer diejenige Koordinatenangabe, die sich auf jene Ko¬ 
ordinatenachse bezieht, zu welcher die Rotationsachse 
parallel ist. 

Für die Drehung eines Punktes P um einen Punkt R 
ergeben sich folgende Rechenschritte: 

A... Abszisse 
O... Ordinate 

Koordinaten von R und P : R (ar, or); P (ap,op) 
Koordinate von P' : P' (ap\ op’) 

W... Winkel, der den Grad der Rotation bestimmt 
A, B, d, e, h, d', h’ : siehe Bild 1 

A = ABS (ATN((or-op)/(ar-ap))) 
if ar-ap >0 then A=-Air 
if or-op >0 then A=-A 

e = SQR((d)(d)+(h)(j)) 
d = ap—ar; h=op-or 
B = W+A; d’=COS(B)*e; h’=SIN(B)*e 
ap' = ar+d’; op'=or+h’ 

(Der Absolutbetrag und die IF-Anweisungen sind nötig, um 
die durch Quotientenbildung verlorengegangene Vorzei¬ 
cheninformation wiederzugewinnen.) 


Diese mathematischen Ausführungen waren nur für den an 
den Grundlagen Interessierten gedacht. Natürlich kann man 
auch mathematisch unbelastet mit dem Programm experi¬ 
mentieren. 

(Achim Vowe/ev) 


Variablen-Übersicht: 

x(100), y(100), z(100) 

Feld für Daten einer Figur 

e$ 

Dateiname 

s,i, q 

Zähler 

1. m, n 

Schnittpunkt der Rotationsachsen 


(x, y. z) 

w 

Rotationswinkel 

xf, yl, zf 

Koordinaten des Fluchtpunktes 

v, r, p 

Zwischenspeicher 

x. y. z 

Zwischenspeicher für aktuellen Figuren- 


punkt vor und nach der Rotation 

a$, a% 

Variablen für Tastatureingabe 

Die Bedeutung der restlichen Variablen ist der mathematischen 

Beschreibung zu entnehmen. Die Bezeichnungen weichen zwar 

größtenteils voneinander ab, aber dennoch ist eine eindeutige Zuord- 

nung anhand der Formeln möglich. 


11 DIMX(100> , Y (100),Z(100) 

12 INPUT"FILE ";E*:OPENl,8,4,E$+",S,R" 

13 INPUT#1,X(S >,Y(S>,Z < S):S=S+1 

14 IFST064THEN13 

15 CLOBE1:L=122:M=105:N=53:W=.5 

20 Q=0:HIRES0,1:XF=147:YF=65:ZF=399 

21 FDR1 = 1TOS/2:GOSUB30:V=X:R=Ys GOBUB30 

23 LINEX,200-Y,V,200—R,1:NEXT 

24 GETA*:IFA*=""THEN24 

20 IFA-7= I, ||"THENW=—W: GOT024 

29 A-/.=ASC<A*>-132:GOTO20 

30 X=X(Q) :Y=Y(Q) :Z=Z(Q) :P=Q:Q=Q+1: IFA'/.= 1 
THENA=X:0=Y:T=L:U=M:GOSUB50:X=A:Y=0 

32 IFA7.=2THENA=X:O=Z:T=L:U=N:GOSUB50: X=A 
: Z=0 

33 IFA7.=3THENA=Y: 0=Z T=M: U=N: GOSUB50: Y=A 
:Z=0 

40 X(P)=X:Y(P)=Y:X=XF—(ZF—Z)* <XF—X)/ZF 
42 Y=YF-(ZF-Z> * < YF-Y)/ZF:Z C P > =Z:RETURN 
50 E=SQR((A-T)-2+(O-U)^2 >:C=ABS(ATN((U-0 
)/<T-A))):IFT-A>0THENC=-C—ff 
53 B=W+C:IFU-0 >0THENC=-C:B=W+C 
55 A=T+COS< B)*E:D=U+SIN(B > *E:RETURN 
READY. 


Listing 1. Programm zur 3D-Darstellung und Rotation. 
Nur mit Simons Basic lauffähig. 


10 OPEN1,B,4,"PYR,S,W 
20 READD 

30 IFD<>1E9THENPRINT#1,D:GOTO20 
40 CLOSEI 

100 DATA50,50,0,200,50,0 
110 DATA200,50,0,200,50,100 
120 DATA200,50,100,50,50,100 
130 DATA50,50,100,50,50,0 
200 DATA50,50,0,125,150,50 
210 DATA200,50,0,125,150,50 
220 DATA200,50,100,125,150,50 
230 DATA50,50,100,125,150,50 
240 DATA1E9 
READY. 


Listing 2. Dieses Programm erzeugt den Datensatz einer 
Pyramide für Listing 1. 
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Zeicheneditor 
für C 64 

ln der Kürze liegt hier die Würze. Statt 
seitenlanger Listings brauchen Sie 
nur eine einzige Bildschirmseite ab¬ 
zutippen, um den Zeichensatz Ihres 
C 64 ganz nach Belieben ändern zu 
können. 

Das Programm »Character Change« (Listing 1) ist ein Hilfs¬ 
programm, um den Zeichensatz des C 64 beliebig zu verän¬ 
dern und anschließend auf Diskette abzuspeichern. Das 
ganze Listing wirkt zwar auf den ersten Blick etwas unüber¬ 
sichtlich, aber dafür sind es halt auch bloß 24 Zeilen. 

Der Vollständigkeit halber ist auch noch ein Demo- 
Programm dabei, das es ermöglicht, mit diesem veränderten 
Zeichensatz in eigenen Programmen zu arbeiten. Einsatz¬ 
möglichkeiten gibt es genug, etwa Spiele. 

Ein paar Erläuterungen zum Programm: 

Nach dem Starten mit »RUN«, fragt der Computer »KEY ?«. 
Hier kann ein beliebiges Zeichen über die Tastatur eingege¬ 
ben werden. Allerdings muß es an der Stelle stehen, an der 
der Cursor blinkt, da aus dieser Speicherzelle des Video- 
RAMs der Bildschirmcode geholt wird. 

Nachdem die Eingabe mit RETURN abgeschlossen wurde, 
erscheint die Matrix des Zeichens vergrößert auf dem Bild¬ 
schirm. Dabei stehtein Sternchen für gesetztes, ein Punkt für 
ein nicht gesetztes Pixel. 

Jetzt kann die Zeichenmatrix verändert werden, und zwar 
zeilenweise. Wieder durch Punkte und Sternchen kennzeich¬ 
nen, wo ein Punkt gesetzt beziehungsweise nicht gesetzt 
werden soll. Danach RETURN drücken und die nächste Zeile 
ändern. 

Sind alle acht Zeilen neu eingegeben, so kann man sich für 
»W« wie »weiter« und »S« wie »save« entscheiden. Drückt man 
»W«, so geht das Spielchen von vorne los, mit »S« wird der 
Zeichensatz auf Diskette abgespeichert. Drückt man eine 
andere Taste, so erfolgt ein Programmabbruch. 

Das File des Zeichensatzes nennt sich »character ram«. 
Das Demo-Programm (Listing 2) lädt einen bereits veränder¬ 
ten Zeichensatz von Diskette und stellt dann alle 2 56 Zeichen 
auf dem Bildschirm dar. 


So arbeitet das Programm 


Noch ein paar Worte zur Arbeitsweise des Programms. 

Zuerst wird von einem in DATAs abgelegten Maschinen¬ 
programm mit Hilfe der Blockverschieberoutine des Betriebs¬ 
systems der Zeichensatz zweimal in verschiedene RAM- 
Bereiche kopiert. Einmal nach $E000, einmal nach $9000. 
Dies ist erforderlich, um die Zeichenmatrix mit PEEK aus- 
lesen zu können, was im unter dem Betriebssystem liegen¬ 
den RAM bekanntlich nicht geht. Die zweite Kopie ist die, aus 
der der Computer jetzt die Zeichen ausliest. Danach werden 
von Basic aus die Zeiger für den Beginn des Video-RAMs, 
den Zeichengenerator und die damit zusammenhängenden 
16 KByte für den Video-Controller neu gesetzt. Das Video- 
RAM wird also zwangsweise mit verschoben, und zwar nach 
dezimal 49152. 


Tips & Tricks 

Aus dem Bildschirmcode des eingegebenen Zeichens wird 
die Startadresse in der ersten Kopie des Zeichensatzes 
ermittelt und 8 Bytes ausgelesen. Aus diesen 8 Bytes werden 
dann die Strings für die Bildschirmdarstellung gebildet. 
Umgekehrt werden aus den eingegebenen Strings die Bytes 
für den Zeichensatz gebildet und anschließend in beide 
Kopien gePOKEt. 

Ein zweites Maschinenprogramm ruft dann die SAVE- 
Routine auf und speichert die 4 KByte der ersten Kopie auf 
Diskette. Eine erste Kopie deshalb, um sie nach dem Laden 
in andere Programme nochmals lesen oder verändern zu 
können. 

Das Demo-Programm enthält im wesentlichen eine weitere 
Maschinenspracheroutine, die den Zeichensatz nach $9000 
lädt und dann nach $E000 verschiebt. Die Umschaltung der 
Zeiger geschieht auch hier von Basic aus, um dem Anwender 
zu überlassen, wann er den neuen Zeichensatz verwenden 
will. 

(Marc Ritter/ev) 




Listing 1. Der Zeicheneditor. Bitte beachten Sie bei der 
Eingabe den Checksummer. 


1 POKE 53280,0:POKE 53281,0:FOR 1=832 TO 9 
11:READ A:POKE I,A:NEXT:SYS 832:P0KE 850 

,160 <127> 

2 POKE 56,144:CLRs SYS 832:POKE 56576,PEEK< 

565761 AND 252:P0KE 53272,B:POKE 648,192 <014> 

3 INPUT"CCLR,YELLOW>KEY";Z*:AD=36864+(PEEK 

(53272)AND 2)*1024+8*PEEK(49157) <242> 

4 FOR 1=0 TO 7:A*(IY=PEEK(AD+I):FOR K 

=7 TO 0 STEP—1:Z*=“.“:X=2tK <119> 

5 IF(Y AND X)THEN Z*="*" <023> 

6 A* (I) =A* (I ) + Z*: NEXT : PRINT" C2SPACEV+A* ( I 

):NEXT:PRINT"OHQMEV:FOR 1=0 TO 7:INPUT“ 
£LIG.RED>";B*:A=0 <224> 

7 FOR K=0 TO 7:IF MID*<B*,8-K,1>="*“THEN A 

=A +2TK <137> 

9 NEXT:POKE AD+I+20480,A:POKE AD+I,A:NEXT: 

PR J ni (RVBON >SIRVOFF}AVE/CRVSON>W<RVOFF> 

EITER":WAIT 203,63:BET C* <226> 

10 IF C*="S"THEN SYS B66:GOTO 3 <117> 


11 DATA 120,169,51,133,1,169,,133,95,133,9 
0,133,88,169,208,133,96:IF C*="W"THEN 3 <178> 

12 END:DATA 169,240,133,89,169,224,133,91, 

32,191,163,169,55,133,1,88,96,169,,133 <190> 

13 DATA 251,169,144,133,252,162,8,32,186,2 

55,169,13,162,130,160,3,32,189,255,169 <239> 

14 DATA 251,162,,160,160,32,216,255,96,67, 

72,65,82,65,67,84,69,82,32,82,65,77,32 <248> 

6 64'er 


10 REM CHARACTER DEMO <1B6> 

100 FOR 1= 828 TO 900 :READ X:POKE I,X:NEX 

T <057> 

110 DATA 162, 8, 160, 1, 32, 186, 255, 169 

, 13, 162, 115, 1'60, 3, 32 <014> 

120 DATA 189, 255, 169, 0, 32, 213, 255, 1 

20, 169, 51, 133, 1, 169, 0 <001> 

130 DATA 133, 95, 133, 90, 133, 88, 169, 1 

44, 133, 96, 169, 240, 133, 89 <017> 

140 DATA 169, 160, 133, 91, 32, 191, 163, 

169, 55, 133, 1, 88, 96, 67 <163> 

150 DATA 72, 65, 82, 65, 67, 84, 69, 82, 3 

2, 82, 65, 77, 0, 0 <165> 

160 DATA 0, 0, 0 <026> 

200 POKE 56,144:CLR:SYS B28:P0KE 56,160;CL 

R <142> 

205 POKE 53272,8:POKE 56576,PEEK(56576)AND 

252:POKE 648,192 <189> 

210 PRINT"<CLR,8D0WN>":FOR 1=0 TO 255:POKE 

49152+1,IsPOKE 55296+1,3:NEXT <217> 


@ 64'et- 


Listing 2. Demo-Programm zum Zeicheneditor. 


129 











Impressum 


Herausgeber: Carl-Franz von Quadt, Otmar Weber 


Redaktion: Albert Absmeler. Volker Everts. Georg 
Klinge, Harald Meyer, Achim Hübner. Christian Rogge. 
Fremdautoren: 

Lonczewski, Mann, Weineck, Wippgen, Riethmüller, 
Zinner, Meierhoter, Eyssele, Del Plno. Schaler, Am¬ 
blank, Schmidt, Schwarz, Arndt, Klenz, Hohenberger, 
Ziesche, Paetzold, Holtmann, Bertog, Kowall, Wilde, 
Jörgens, Büsch, Brendel, Eichholz, Sauer, Meyer, Gün¬ 
ter, Rylander, Barcikowski, Vocke, Schneider, Spitzner, 
Croll, Neumann, Vowe, Ritter, Horak 


Layout: Leo Eder (Ltg.) 
Herstellung: Klaus Buck 


Auslandsrepräsentation: 

Schweiz: Markt & Technik Vertriebs AG, 

Kollorstr. 3, CH-6300 Zug, 

Tel. 042-2231 55, Telex: 862329 
USA: M4T Publishing Ina: 2464 Embarcadero 

Way, Palo Alto, CA 94303 

Manuskripteinsendungen: Manuskripte und Pro- 
grammlistlngs werden gerne von der Redaktion ange¬ 
nommen. Sie müssen frei sein von Rechten Dritter Soll¬ 
ten sie auch an anderer Stelle zur Veröffentlichung oder 
gewerblichen Nutzung angeboten werden, so muß dies 
angegeben werden Mit der Einsendung von Manu¬ 
skripten und Listings gibt der Verfasser die Zustim¬ 
mung zum Abdruck in von der Markt 8 Technik Verlags 
AG herausgegebenen Publikationen und zur Vervielfäl¬ 
tigung der Programmllstings auf Datenträger. Honorare 
nach Vereinbarung. Für unverlangt eingesandte Ma¬ 
nuskripte und Listings wird keine Haltung 

übernommen. 


Vertriebsleitung: Hans Hörl 

Anzeigenverwaltung und Disposition: Michaela Hörl 
Verlagsleiter M&T-Buchverlag: Günther Frank 

Druck: E. Schwend GmbH, Schmollerstr. 31, 
Schwäbisch Hall. 

Auch Anschritt für Beiheiter und Beilagen. 

Preis: Das Eihzelheft kostet DM 14,— 

Vertrieb Handelsauflage: Inland (GroS-, Einzel- und 
Bahnhofsbuchhandel) sowie Österreich und Schweiz: 
Pegasus Buch- und Zeitschriften-Vertriebs GmbH, 
Hauptstätter Straße 96, 7000 Stuttgart 1, Telefon 
(0711) 764830 

Urheberrecht: Alle in diesem Heft erschienenen Bei¬ 
träge sind urheberrechtlich geschützt- Alle Rechte, 
auch Übersetzungen, Vorbehalten. Reproduktionen 
gleich welcher Art, ob Fotokopie. Mikrofilm oder Erfas¬ 
sung in Datenverarbeitungsanlagen, nur mit schriftli¬ 
cher Genehmigung des Verlages. Anfragen sind an die 
Redaktion zu richten. Für Schaltungen und Programme, 
die als Beispiele veröffentlicht werden, können wir we¬ 
der Gewähr noch irgendwelche Haftung übernehmen. 
Aus der Veröffentlichung kann nicht geschlossen wer¬ 
den. daß die beschriebenen Lösungen oder verwende¬ 
ten Bezeichnungen frei von gewerblichen Schutzrech¬ 
ten sind. Anträgen für Sonderdrucke sind an Peter 
Wagstyl (185) zu richten 


© 1985 Markt & Technik Verlag Aktiengesellschaft 
Verantwortlich: 

Für redaktionellen Teil: Albert Absmeier 
Für Anzeigen: Brigitte Fiebig 

Vorstand: Carl-Franz von Quadt, Otmar Weber 


Anschritt für Verlag, Redaktion, Vertrieb, Anzeigen- 
verwaltung und alle Verantwortlichen: 

Markt & Technik Verlag AktiengesellschatL 
Hans-Pinsel-Straße 2, 8013 Haar bei München, 
Telefon (089) 4613-0, Telex 5-22052 


Aktionäre, die mehr als 25% des Kapitals halten: Otmar 
Weber, Ingenieur. München; Carl-Franz von Quadt, Be¬ 
triebswirt, München. Autsichtsrat: Dr. Robert Dissmann 

(Vorsitzender), Karl-Heinz Fanselow. Eduard Heilmayr 


130 
































^Ämv.vuVv, 


RBä 




ätäÄi 


^:,y }•/.■,-, .^4 1 
* hi / h 

W0mi^üWikii\, 



G4cr-onllne.de 
_ _ 64er-online.net 






mm 

^'»«piil wWt& 

a%4IpIÄÄW 


mMmtömmmm 


*!^ip»wf m mk m » ■/ 

Äi V !f r >■ 1 r'-1' 1 v / / i : r < '■ ' 

ÄÄW '• -V: ,: A * <«'■ 1 Ä -13»; > • 'I < i £ *«. 


ÄIÄÄ® 


»Äte 


. s k -» 

' .. • :H;v, 

; ':.*V r.v '■■■■ w»: -V, 't'AiH ■«>■:■ ,$• 

-■ > ■,'/. ■ .■ . -■■ « ■■'. ■ V i ; • ■. . ' l/uutfi 






Ä 












